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LA RENTREE 

SCOLAIRE 

HEBDOGICIEL 



Le domame des logiciels qui 
s'etend au meme rythme que 
le pare des ordinateurs fami- 
Iraux. semble difficilement 
adapt e a une classification 
thematique meme sommaire. 
Neanmoins. les logiciels edu- 
catifs sous forme de program- 
mesdejeuoude programmes 
d'E A.O. (enseignement as- 
siste par ordmateur), accu- 
sent une nette progression. 




tant sur le marche amencain 
que sur le marche europeen. 
Ces logiciels educatifs (nom 
savant : DIDACTICIELS). sont 
destines a un large public (de 
3 a 77 ans !) et couvrent un 
champ allant du programme 
purement didactique, tel que 
des questionnaires a choix 
Suite page 9 

INTERNICOLA 
INTERNATIONAL 

Felicitations a Bruno INTERNI- 
COLA qui remporte le concours 
trimestriel pour son programme 
SAUVETAGEsurVIC20. II a deja 
gagne le prix du mois dernier 
(10.000 Frs et une brasseede ca- 
deaux). II va a present s'envoler 
vers la CALIFORNIE apres avoir 
recupere ses cadeaux offerts 
par DDL DUR1E2 et LA REGLE A 
CALCUL. Que I'on oublie pas 
GNAFUde Frederic MEL1NE pour 
COMMODORE 64, il empoche 
les 10.000 francs mensuels et 
les cadeaux habituels. En prime, 
il recoit meme un cheque de 
100 francs offer! par une lectrice 
enchantee par son programme 
(voir courrier en page inte- 
rieure). 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour ie meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



CONCOURS HEBDOGICIEL 
GEORGES LECLERE ANTENNE 2 



Depuis la semame derniere et 
jusqu'au 2 Mai, un concours, in- 
dependant des deux concours 
permanents est organise avec 
Georges LECLERE d'Antenne 2 
Lobjectif de ce concours est sim- 
ple : a partir de 1'idee de base de 
Georges LECLERE. chacun d'en- 
tre vous, q uel q ue soit son ordina- 
teur . doit creer un jeu le plus pro- 
che possible de I 'idee originaleet 
le rendre suffisamment perfor- 
mant et presentable, pour qu'il 
puisse etre vendu en France et 
dans les pays Francophones. 

Chaque ordinateur a sa chance 
et il y aura un gagnant par ordina- 
teur. Les prix ? Comme d'habitu- 
de chacun des programmes rete- 
nus sera recompense par des 
materiels. il y aura meme un su- 
per gagnant. Mais surtout. les 
programmes retenus seront edite 
par SHIFT EDITIONS sous forme 
de K7 ou de disquette et les au- 
teurs, par contrat, toucheront les 
royalties correspondant aux 
ventes de leur logiciel 



LE JURY 

Preside par Georges LECLERE, 
des specialistes de DOM, de la 
F.'JAC. d'HACHETTE. d'lLLEL. de 
la REGLE A CALCUL. de SIDEG. 
de SIVEA et de V1FI NATHAN se 
reuniront pour admirer vos ceu- 
vres. Annonce des resultats le 25 
mai. a vos claviers ! 



LES PRIX 

Le jury choisira le meilleur logi- 
ciel pour chaque modele d'ordi- 
nateur et. parmi ces meilleurs lo- 
giciels. le gagnant toute catego- 
rie qui en plus de son contrat 
d'edition et de ses prix, aura le 
plaisir de passer en direct a la te- 
levision : la gloire ! 
RECOMPENSES POUR LE GA- 
GNANT TOUTE CATEGORIE : 

- Un contrat d'edition de son lo- 
giciel 

- Un APPLE lie 

- Un CANON X 07 

- Un COMMODORE 64 

- Un ORIC ATMOS 

- Un Agenda electronique CASIO 
PF 3000 

- Un TEXAS Tl 99/4A 

- Une imprimante EPSON 

- Un abonnement a vie a HEB- 
DOGICIEL 

- Une disquette HEBDOGICIEL 
APPLE N° 1 

- 5 logiciels VIF1 NATHAN 

- 5 logiciels ROMOX 

- 5 modules de jeux TEXAS 

- 10 logiciels de jeux pour COM- 
MODORE 64 

- SHARP PC 1245 

- SHARP PC 1500 

- 1 cassette HEBDOGICIEL 
le Chateau du Diable 
pour ATMOS 

- 1 cassette HEBDOGICIEL 
centrale Nucleaire 

pour ATMOS 

- 1 cassette HEDOG1CIEL 
ORIC/ATMOS N° 1 



- 1 cassette HEBDOGICIEL 
TEXAS N°1 

- 1 cassette HEBDOGICIEL 
TEXAS N« 2 

- 1 cassette HEBDOGICIEL 
commodore 64 N° 1 

- 1 cassette HEBDOGICIEL 
commodore VIC 20 N° 1 

- 1 cassette HEBDOGICIEL 
T07 N° 1 

- 1 cassette HEBDOGICIEL 
Canon X-07 N° 1 

RECOMPENSE POUR LES GA- 
GNANTS-DANS CHAQUE CATE- 
GORIE D'ORDINATEUR 

- Un contrat d'Edition de son lo- 
giciel 

- Un agenda electronique CAS'O 
PF 3000 

- 20 K7 vierges 

- Un abonnement d'un an a HEB- 
DOGICIEL 

et bien d'autres prix qui viendront 
s'ajouter au cours des semames 
a venir. Cloture des envois de 
programmes le 2 mai. 
Le reglement est en page inte- 
rieure. Plus que quatre semames 
avant la gloire ! 



EDITO 



Une semaine tnteressante. eelle 
de la remise des prix. Un nou- 
veau gagnant du concours men- 
suel. le sixieme depuis la crea- 
tion de I'HEBDO. Et le deuxieme 
gagnant du trimestre qui. je 
I'espere. pensera a I'hippocam- 
pe dans I 'avion pour la CALIFOR- 
NIE. Le concours HEBDOGICIEL 
Georges LECLERE s'annonce 
aussi Ires bien, les reponses af- 
fluent et les prix augmentent 
cette semaine, du SHARP et des 
Soft en plus, Alfinez vos pro- 
grammes, la lutte sera dure. 

suite page 9 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
ATARI . CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET 
VIC 20 . HEWLETT PACKARD HP 41 . MULTITECH MP-F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 

HlPPOREBUS trouvez I'expression qui se cache dans la B.D. de t'hippocampe. Decompose en trois syllabes dans les trois premieres cases, le •'tout" a evrdemment un rapport avec I'mformatique 
(solution en page interieure). 




JEU DES BLOCS 



Ce jeu se joue sur un damier 3 X 3 jusqu'a 8 X 8 avec des 
pions double face noir et blanc 

Au debut du jeu, les pions peuvent etre disposes n'im- 
porte comment. Le jeu consiste pour le joueur a retourner 
tous les pions de n'importe quel bloc rectangulaire a x b 
oil a et b sont n'importe quel entier, compris entre 1 et le 
nombre de cases d'un cote du damier. Par consequent, un 
bloc retournable peut etre soit un pion unique, soit un do- 
mino (2 X 1) place verticalement ou horizontalement, soit 
n'importe quel bloc de plus grande taille jusqu'au damier 
entier. 



PC 1500 



Mode d'emploi : 

it existe une regie fondamentale, un bloc ne peut etre retourne que s'il 
comporteun pion noir en son coin inferieur droit. Lejoueurjoueatour 
de role avec I'ordinateur et chacun retoume un bloc a son tour Le ga- 
gnant est celui qui apres avoir joue. obtient un damier recouvert de 
pions blancs. 

Apres avoir fait RUN. I'ecran affiche : 

DAMIER Z ' 2:Z— demande la taille du damier sur lequel va se derou- 
ler le jeu. 

Zrepresentele nombre decasesd'uncotedudamier 
Z doit etre compris entre 3 et 8 inclus 
IMPRIMANTE?{0/N)--Si vous voulezque I'ordinateur dessinele damier 
surl'imprirnariterepondezOUI(0)sinon repondez 
NON (N) 

Cela permet d'utiliser le programme avec ou sans 
rimprimante. 
TAILLE CARACTERE (1/2)-Permet de choisir la taille des caracteres 

pour le dessin sur rimprimante 
JEU PARTI CULIER {0/N)-Si vous repondez non, lejeu initial seraen al- 
ternance : pion noir, pion blanc. u _ . 1 
exemple : sur un damier 3x3 • • • 



Si vous repondez OUI. vous pouvez choisir la disposition et le nombre 
des pions noirs et blancs au debut du jeu. 

Vous verrez alors "X=x Y=y/Pion?(B/N) 

Demande la couleur du pion de coordonnees x.y. et ainsi de suite jus- 
qu'a ce que le damier soit plein. 

-VOUS COMMENCEZ"(0/N) Repondez OUI si vous voulezcommencer 
sinon I'ordinateur commence. 
"A VOUS"-vous annonce que c'est voire tour. 
X = 
Y = 



demande les coordonnees de votre coups 



: sur un damier 8 x 8 




Pierre MARCELLIN 



Si Ton veut retourner tous les pions interieurs 
aubloc. ilfautentrer:X = 7 



A = 6 
B = 3 



Programme : grace a une utilisation abondante de labels, ce program- 
me est entierementrelogeableilnecomporteaucunbranchementnu- 
menque. On peut done le numeroter comme on veut 



2083: ■SB'-ZEn JEU 

DES BLOCS 
20iarREM 

flORCELLIN P 

ERRE 
2323: PEH PC 1580 
?040:"n"CLEflR : 

INPUT "Daroii 
ZI2:Z=";Z, 



"J mi 



;ft» 



2645: IF Z>8QR Z<3 

GOTO '■]] 
2860: IF Z=SCSI2E 



<2,Z3,Ct2,Z) 



-.FOR > 



TO Z 



demande les cotes du bloc que vous retournez. 



: RESTORE 

=]TO Z:RE0D 
C(X, Y):NEXT 
Y:NEXT X 

2085: INPUT "Jeu p 
art Icul ler 7 
(O'N) "JB* 

2030: IF 8»="0" 
GOTO "13 

2!83:FOR X=1T0 Z: 
FOR Y=1T0 Z: 
IF cx*Y>'2= 
INT (tx+V>/2 
)LET «(X, Y) = 
2: GOTO "12 

2120:(KX,Y>=J 

2H0:' i 12 ,, NEXT Y: 
NEXT X 



2158:"14"lNPUT "U 
OUS COnrlENCt 
Z ?CO'N)";B* 

2IS5: IF B*="N" 
GOTO -9 

216e:DATS 1,2, 1,4 
, 1,2, 1,0 

2I8B:DftTfi 2, 3,2, 8 
.2,3,2, 12 

22B8:DOTfi 1, 2, 1,4 

2220: DATA 4,0, 4,5 

2240:OOTfi 1, 2, 1, 4 
. 1,2, 1,8 

2268: DQTR 2, 3,2, 8 
,2,3,2, 12 

228B:DOTfi 1, 2, 1, 4 
. 1,2. 1, 3 

238B:DfiTA 8, 12, 8, 
11,8, 12,8, 13 

232B:GOSUB "N 
2340:"6"BEEP l: 

PAUSE "A UOU 
S: '•: INPUT "X 



6: IF X>ZOR Y 
>ZOR A>X0R B 
>YG0T0 "6 

■2358: IF ACX, Y) = l 
GOTO "6 

236B:GOSUB "U": 

GOSUB »N"Sft« 
1: GOSUB "K 

2360:"3' , X=l:Y=l 

2400: "H" 

2420: IF A(X,Y) = 1 
THEN "l 

2440:Q=1, B=l 

2460: ■ 



l!"P"IF B(C,OJ 

= I THEN "2 
l: IF CCC,D> = ] 



2560 
2588 
2603 
2620: 



LET I1=n*l: 
GOTO -2 
IF CCC, D)=3 
let n=mi, L= 

L+]:G0TO *1 
IF CCC, D>=4 
LET H»H+l: 
GOTO "2 
IF CtC.0)=6 



!, 0=0 



26B8 
2708 
2228 

2748 

2768 

2788 



LET , 
n>I:G0T0 "2 

):IF C<C, D)=8 
LET 0=0*1: 
GOTO "2 

!: IF C<C, D) = J 1 
LET 0=0*], H= 
n*l,L=L*|: 
GOTO "2 
IF CCC. D) = 12 
LET N=N*1,0= 
0*l:GOTO "2 
IF C(C,0) = 13 



^L*l 



LET I 
0*1,1 
'2*0-0+1 i IF 

D>ZLET 0=1: 
BEEP l:GOT0 
"0 

GOTO -P 
' , 0' i C=C*I:IF 
C<=ZGOTO "P 
FOR C=I2T0 1 
5:9CC)=SGN ( 




2B4B:G0TO "U 
2860:' , T"O=A*UIF 

0<=XGOTO "U 
2880: M l"Y=Y*l: IF 

Y>ZLET Y=l: 

GOTO "Q 
2983: GOTO "W 
2928: M Q , 'X=X*l:]F 

X<=ZG0TO ,, U 
2940:FOR 1 = 1 TO 28 

:X=RND Z, Y= 

RND Z: IF ACX 

, 1r*> = l60TO "4 
2960:A=RNO X, B= 

RND Y:GOTO " 

3 
2980:"4"NEXT I 
388B:F0R X=1T0 N: 

<=0R Y=1T0 N: 



3B28:NEXT YINEXT 
XJPRINT "ERR 
EUR 

3B48: 'S'TRINT "X^ 

PRINT -o= :, ;a 

3868: GOSUB "V : 

GOSUB "N' , :0= 
2:G0SUB "K": 
GOTO "6 

3888:"Z"F0R C=1T0 
2: FOR 0=1 TO 
Z:B(C, 0)=A<C 
,D):NEXT D: 
NEXT C: 
RETURN 

3103: , 'X , 'FOR C=X-A 
•]T0 X:FOR 
=Y-B*1T0 Y: 
IF B(C,0) = 1 
LET B(C, 0>=2 



IF AlC,0) = l 

LET P(C, 0)=2 

:GOTO -H 
31B8:OCC, D)^l 
32B0: ,, H"NEXT 0: 

NEXT C: 

RETURN 
3220:-X' , FOR C=1T0 

2= FOR 0=1 TO 

Z 
3240: IF ACC, 03=2 

GOTO -8 
3?63:.1tXT D:NEXT 



GOTO -? 
3328: "8"RETURn 
3310: "? "BEEP |: 

INPUT "U«c o. 

?";A* 
3360: IF LEFT* CAt 

, ))="0"CLEAR 

:GOT0 "11 
^3B0:UflIT B:CLS : 

B*="F1N":FQR 

]=]T0 3 
3480:FOR J=25T0 1 

0*1 STEP -1 
3420:CURSOR J: 

PRINT LEFT* 



3440:BEEP 1, 18: 

NEXT J 
34B0:9*^M1D* CB*, 

2, 3): NEXT I 
34B01FOR I=t TO 38 

0:NEXT I: END 
35B8:"N"IF A*="N- 

RE TURN 



3568 
3588 



LF -3: COLOR 
3:CSI2E U 
LPRINT TAB < 
8-2>;-l -;: 
=0R I=1T0 2: 
LPRINT STR* 
lj" ';:NEXT 
I:LPR1NT -■■ 
FOR S=1T0 Z: 
LPRINT TUB < 
8-2);SIR* S; 
- -'j:FQR T=l 
TO 2: COLOR 9 
IF A(T,S> = 1 
LET A*=-0 ' 

r, s>=2 






LET A*=- 
3608:lPRINT fit; 
3628: NEXT 1 : COLOR 

3: LPRINT 

STR* S:NEXT 

S 
3640JLPR1NT TAB C 

a-2>;-» ";: 

FOR 1 = 1 TO 2: 
LPRINT STR* 

i;- ';:next 

I : LPRINT "•' 
3660:LF 4:RE1URN 
3780: , 13 ,i FOR X=] 

TO 2: FOR Y=l 

TO 2 
3718: ,i 15"BEEP 1, 1 

30, 30:UAJT 

:PRlNT -x='i 



3715: IF B*0'N- 
ANO B»<>"8" 
CLS :BEEP 1, 
280, 188:G0T0 
-15 

3220:n(X, Y)=i*s&N 
<ASC B*-66) 

3?3B:CLS =NEX1 Y: 
NEXT X:UOIT 

3740:GOTO "14 
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BON DE COMMANDE 

TARIFS AU 16/3/84 
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PARACHUTAGE 



Regie du jeu 

Vous controlez le char. Vous pouvez dinger le canon avec 

les touches W (pour mettrele canon a gauche). X(pourle 

mettreaucentre),C(pourIemettreadroite).Pourdeclen- 

cher le tir, appuyez sur T 

Le but du jeu est d'eviter que 2 hommes (ou plus) soient 

places de chaque cote en les abattant (bien que cela soil 

interdit par la convention de Geneve). 

Vous ne pouvez pas tirer pendant que I'avion passe. 

Attention : Votre canon est endommage, il se peut qu'il ne 

reponde pas immediatement, alors laissez votre doigt sur 

la touche. 

En raison du grand nombre de graphiques utilises dans ce 

jeu, il est difficilement adaptable sur une autre machine 

que le T07. 

Pour augmenter la difficulte, vous pouvez rationner les 

munitions. 



Nicolas GALLE 
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136 D-EFGR*-: 2. '=9,9,6.6,6. 16, 8, 4: DEFCR*<3> 

*e.e.e.6. 123. :£s. iz - -, i23::.-E"Cft(4>»e.e,e 

• 0*0/4,9,16 

146 DEFCP*-: , 5. = 9,9,9.e,3.127,12e,127:[.EFC 

R*(6) = 6.8.C'. 25S. It. ■>•;.. 3.255 :DEFCP*< 7 >=3 

8,36,72,136. 16, 16. 32. 224; AV* = Gfif<5> + CR*< 

6>*GR*<7) 

159 DEFGRJ,.8) = 90,90.69,24,24,36,36,36:[>E 

FCPi'? ■ =40, :i>.,£VT.I5V. 12r. ii,66,66 

169 S-996 

598 '::i::::: D-ECOP Itllllfl 
585 I C PEE Mi. y,0iMTTPB8.fl:CLS 
518 BOXFO, 134)-''32e,28e>,6 
528 L0:aTF-17,23.6:PPINT- 

536 LOCATE 13. 2 3. !i: :0-OP1 ■ 9: PR] KTC1 * 
548 LOCATE19,22,0iCOLORI.6:PRlNTGRf<3> 

'■-■': ... >:-'Ei. :3.. :■:::_ ;--^. -:'-:■:;■ :;\-:: 

558 C0T013B9 

599 *:::j:::: OEPLACEHENT DU CANON : : : : 
689 ft*=IHKE¥f 

619 IF «*-'WTHEN P = liC0L0Rl,9!L0CATEI7. 
22, 8: PRINT' " : LOCATE 13 + X. 22. 8: PPI NTGR 



799 ' 



=l:G0T01438 
TIR : 



■■IHKVff. [FP=3ThEM81SELSE819 
319 IF A*=-T"TH£M COLORS. e:P=P+l:GOT03£9 

ELSE GOTO 668 
828 IF P-l THEN 988 ELSE B38 
839 IF P-2 THEN 1388 ELSE 846 
S40 IF P=3 THEN 1166 ELSE 668 
899 'It HI POSITION 1 :::: 
968 XT1-18+XJC»XT1 
911 FOPI-2ITO0STEP-I 

915 XTl-XTl-lUF XTI=0 THEN XTI = G:GOTO 9 
46 

928 LOCftTE>:Tl.I.0iPRINTGR*(2) 
925 IF XTl = <F«-lv*D THEN GOSUB 1599 
936 NEXT I 

948 F0RI*21T08STEP-1 
958 XT1=XT1-1: IF XT1=0 THEN1439 
960 L0CATEXT1. I,0:PRINT" ■ 
976 NEXT! 
999 '::::: POSITION 2 : ::: 



1610 F0RI-21T08! TEP-1 

IBM locate :;. :.o: = - :-.-■:;( 3 

1635 K KT2"<F»I -:■ THEN JOSUE 1MB 

1040 NEXTI 

1038 r :. ; I"2JT06STEP-! 

1078 LOCATE.;';. 1,01 - - ' IT 

1938 NE>:TI 

1090 SOT0143Q 

1899 '<r«I POSITION ':■.:•. 

nee >:t3=i?-: ic- " 



156 

1125 !F;.;T3 = 'F-l .-[. :»;- :■:£..= :50.j 
:!36 L0CATE;-;T3.!.6:tR!NTiti j 

1149 nexti 

1150 F0RI=21TO9STEP-l 

1160 .:T3 = ;;T;-l:;r /T3 = 3? THENI430 
1173 L0EATEXT3. i,3:Ffi;NT" * 
1 136 NEXTI 

! 199 ' ! : : : PhS=.h,;E 11 . -. : ;■■. : : : : 

;;ae fqri = -6tq.}step-i 

1281 C0LQR6.9 

1218 LOCATE!. 9. OsPF.INTAV* 

1220 L0C«EI+3,8,B»PRINT' ■ 

1239 L0CATE6,0.e:PPINT- 

1260 IFI-B-1 THEN REM>D.ElLOCATE<I*l)*t>, 

E,0:COLOR3,9:PRItJTGSI' 3 >:G0T0 1400 

1280 NEXT I 

1299 TIRACE AU SQPT :::: 

1399 B=INT'PNDi34>*l 

1310 IF 8 = ;-34 THEN 1388 ELiE 1296 

1399 ':::: PARACHUTAGE :::::: 

1488 PLAfLA'iF"! 

1482 L0CATEI'3.6,6:PP1NT- • 

1493 F0RC-1T05 

1485 IF I-C<-8 THEN H= I : LOCATE*, .j. -?: FP ,' r, 

T* -IC0T01438 

1416 LOCATE I-C,0,iM.:0L0P6, 8: PPIHTAVt 

1415 LOCATE' I-C.'*3. 8. 6:PR1NT" • 

1426 NEXTCM-I-C 

1436 LOCATEfF-1 ; ♦[•, E. 6: PR I HT " -:LQCATE'F 

*I>*D.E-1,6:PRINT- - 

1435 IF t>-6 AND E-21 THEN1700 

1448 READD.E 

1438 L0CflTE<F*U*t>,E,9:C0L0P3,6:PRINTGRI 

(8):L0CATE<F*1)-D,E-1,6:C0L0P7,9:PPINTCP 

*(9)iIFU-l THEN 1460 ELSE 1462 

1466 IF H=l THEN GOTO 366 ELSE 1476 

1476 GOTO 888 

1499 ':::: HOMME TOUCHE ::::: 

1580 IF I=E THEN1526 ELSE 1516 

1510 IF I=E-1 THEN1528 ELSE RETURN 

1520 LOCATE'Ftl <«D, E. 6: PRINT" -:LOCAT£<F 

+ 1J + D,E-1,8: PRINT' ■:PLAY-D0PE[iO- 

1530 IF ?--: then:-:t: = ::i- i:--.:t-.;':~^EL :: L5: 



1540 FOPI=21T06STEP-1 

1558 XT1-XT1-1: IFXT 1=6THEN1 679 

1569 LOCflTEXTl,I,0:PP!NT- ■ 

1578 NEXTI 

1588 IF P=2 TH£NXT2=19*X:GOTO1590£L3EI6£ 

8 

1599 F0PI=21T08STEP-1 

1600 L0CATEXT2, I,6:PPINT" " 
1618 NEXT I : GOTO 1676 

1620 IF P-3 THENXT3=r?-;':::OTij:S30EL"iEl6 - 



1638 F0RI=21T063TEP-1 

1648 XT3-XT3MMF XT3 = 39 THEN1670 

1656 L0CATEXT3, I,e=PRINT" - 

1668 NEXTI 

;67s s=s*iee 

1675 L0COTE3,2~,Ci:C':'LCR4,6:PRINTS:REST0P 



E:h-9:-i. I iCOTOl '■:■■.' 

:■-.•' ■-.::: HOWIE - ■!--■ Illll 

1-98 LOCATE--! -: . . - i ■ 

:i . :--:--: -..■-..: 
fLOCATEF-H -:.-.' .-.:-■:■ 
^^'^:-.~ : :.-; 

1710 IFF*t -I ISTtCI 

1720 :■'-:-: IOTHEHT-T*! 

I730 iro- ; ~m: t- :--■:■. 

1740 F0RI«6T017 

1750 L0C«TEt,22,0iP( : II 

1733 loc-te:. ::..?: = ; |N1 

1760 NEXTI 

1770 F0RI-21T03? 

1730 L0CATEI,22.*tPPlM1 

1735 LOCATE!, 21, OiPRlMT' ' 

1796 NEXTI 

:;ee fopi-jtoo 

i9ie LOCATEiO'i,as,ot ::.:':. i-: f = :' ■ ;< i 

1315 LOCATE16-I.2I.0:CiL0R5.3:PBINT--- 

1520 NEXTI 

1530 FOPI-ITOT 

1348 L0CATE2l'l,22,OiCOL0R3,«IPRI«T&RJ 

1345 L0CATE2 :• 1.21.0: :;_GR5,e:PRIN--> " 

1358 NEXTI 

1866 LOCATE I 6. 21. 0: COLORS. 8: PPJNT -... = .= 

"JPLAY-DODOC'OREtllPEC :'"; = ER£i-0- 

1999 GOTO 2300 

2O06 DAT A8. 1,1, 1,2. I.?.-. -.7.5.4.6.5.; 

2818 ['ATA6.6.7.6.S.6. ^6,16,6,11,6,12 

C':2u DATM, 13,6,14.6, 15,6, 16,6,17,6, H 

2638 C.ATA6. 1 9. 6, JO.t. 2i,6.22.6 

2P99 •:::::: PRESENTATION ::::: 

2100 SCREEN?. 0-OiCLS 

2191 L0CATE9.5.9 

2102 ATTR61, 1 

2104 PPINT'PaRhCHUThCE- 

2110 B0X(7O,30)-(248,31 ■.: 

2128 BOX-. 249.43', 1 
2130 B0X-(76,49),1 

2149 BOX-(71,30>,1 

2150 B0X<6O,26>-(236,27 -J 

2166 B0X-<259.52/,4 

2170 B0X-168,53'>.4 

2190 B0X-t61.26'.4 

2196 C0L0R1, 3J LOCATE?. 7, 0:»:TPFO,;':(: i'." 

■IMACINE ET REALISE PAR' 

2200 COLORS. 4:L0CATE::3.S.;;:5-f .-HT'O-Lwi ', 

icolas- 

22! 6 COLOR6.l:ATTRB1.0:LOC-TE5.l2.:^-- 

T-POUR COMMENCEP* 

2220 L0CATE12, 14, 0: FPINT ■hPPUVEZ- 

C-C78 LC'C-T£16. 1 6. 8 = PRINT'SUR- 

2240 «TTPB1,1:C0LiJR-.0:lj;mTE:J. !?.0:'R: 

NT'S- 

2245 F0PM-8T07 

£246 IFM»3THEN GOT02243 

2247 COLORM, 3! ATTPB1, I : LOCATES, 5.0: PRINT 

■PARACHUTAGE" 

2265 FORJ»1T0180!C*"INi:EVI: I FCO "C-THENl 

86ELSE2267 

2267 NEXTJ 

2269 BEEP: BEEP 

2278 NEXTM 

2286 GOTO £245 

2299 ':::: UNE AUTRE RaPTIE ::i: 

2368 ATTPB 1. l: LOCATE u. -. >•: CC'--! '•-.-. :: — I'H 

"VOULEZ-VOUS REJOUER- 

£316 COLOR6.4:LOCATEr.6.0:PRINT*iOUI«O'N 

ON-N>- 

2326 D*=INKEri:lF DI«-0" THEN2188EL =• 233 



2338 IFDf-N" THENENt' _ 

£340 &0T02326 ■ 



GEOGRAPHIE 



Un grand voyage en FRANCE pour votre MPFIIVerifiezvos 
connaissances, il ne vous pardonnera rien ! 



Vincent Dl SANZO 



Mode d'emploi : 

Avant de charger !e programme, frappez la commande MP qui, en su- 
perposant la page 1 (adresse 2000 a 4000) sur la page 2 (adresse AOOO 
- COCO), libere la place memoire necessaire au chargemenl du pro- 
gramme. 

Le programme s'execute par RUN? 

Apres la presentation du jeu etduchoixdu nombre devillesadeviner, la 
partie commence. 

Le point representant la ville en question clignote, un bip sonore indi- 
que que le programme attend une reponse. 

Le nom des villes est traite sur les quatre premiers caracteres, on peut 
done rentrer AVIG pour AVIGNON par exemple. Vousavez droit a 3 es- 
sais mais vous pouvez aussi donner votre (angue au chat en frappant 
RETURN, auquel cas la solution est aftichee. En tin de partie, une appre- 
ciation est portee en tonction du score obtenu 



5 HIMEM 35668 

18 DIH U*f74),Xi 7*!.V. 74>.T(4> 

15 Resrmc 

20 REM IHIT COORCinLLES 
23 FOR I ■ 1 TO 7* 
38 READ XCI>,VCI> 
35 NEXT [ 

46 REM IHIT 1,'ILLES 
45 COSOB 7399 

30 REN IHIT FORHCO GRAPH I0U60 
33 S • 33889 

63 POKE 233, IHT < -Z / 2361' POKE 23; 
- C IHT CS <• 236 ■ « 236 > 
78 READ H POKE S.N. POKE S * 1,9 
?5Il-2+2*H' POKE S * 2- II 
POKE S - 



IN 



II 



IN ■ T'FJ 



83 FOP I 

98 READ rCI 

95 POKE 5 i 

168 POKE % * Z 1 ( F * i 

165 NEXT F 

116 PEAD KN> 

113 L - IN - II - TIN > 

120 FOP F • 9 TO L - I 

123 READ X 

138 POKE F -. 5 . II .X 

133 NEXT F 

135 GOS'JB 6869 

168 REM CHOIX EPPEUUE 

165 G0SU6 9886 

196 HTAE I0' UTAB 3 PR 

EPPEUUE ' 

193 HTAE 10 UTAE PR 

IOHS - 

200 HTAE 10' 'JTAB 10' PRINT "2- 26 OLIES 

TI0M5 ' 

203 HTAE 10' UTAB 12' PRINT -J- 51 QUE 1 ; 

now.* 

210 HTAE 16' VTAE 1* PRINT '*- 74 QUES 

TIOHS " 

213 GET E< 

220 IF E* - -I' THEN E ■ 10 GOTO 268 

223 IF E* " •£• THEN E - 36 GOTO 260 

238 IF E* • "3- THEN E • 34 GOTO ECO 

233 IF E* « "4- THEM E • 74 GOTO 160 

248 GOTO 213 



'CHOIX DE I 



-1- IS QVES 




266 GOSUB 6999 

261 REM DE3SIH CARTE 

263 HCOLOP * 3 

279 FOR I • 1 TO 340 

273 READ Y..< HPLOT X.Y 

285 NEXT I 

298 HTAE 3 UTAE 2' 

295 PRIHT "EPREUUE HO "l UAL <E*> 

380 REM JEU 

385 U ■ 148'5 - i 

316 PS ■ *01020304030iS070009 101 112131413 

161 7101 92021 25 ^ 3i *i 5 J62 7 28293831 32333435 

3*: I73v 39*04 142434445464748495851-32535455 

36575059';e';i';2';3.;-i-;^-»:7 r »;979zi7273 74- 

312 FOR K ' 1 TO E 

313 R - IHT C RND < 1 > * U > - 1 

328 IF IHT (R ' 2) * 2 • R THEN 315 

323 U • UAL ( HID* (P»,R,2>> 

338 U ■ U - 2 

333 Pi - HID* <F«,1,R - 1 > ♦ I1IDI £P»< 

R * 2, LEN (P*> - 1 - P> 

336 HTAE 23' UTAE 2 PRINT * (WEST [ON HO 

337 UTAE 20 

346 FOR ■ I TO 20 
345 HCOLOR " 8 
330 HPLOT X(V),Y(U> 
355 FOR J • 1 TO 29 NEXT J 
368 IF [NT (X<U> f 2> - X< U > THEN 
HCOLOR ■ 3 



363 



IHT 



THEN HCOLOR - 7 
378 HPLOT X<U),Y<V) 
373 FOR J • I TO 20 "EXT J NEXT 1} 



FOR 



TO ■ 



PINT CUR! I 
366 INPUT *UOTR£ REPOHSC 7 -;R* 
393 IF Pi * -- THEN 4£6 
408 IF LEFT! 'R»,4> • LEFT* (VKI 

THE (I 660 
410 PPIMT "C 'E5T FAUX" 
413 NEXT J ■ 

420 PRIHT PRINT "LA MPOHM ETAI 
«U> 

42« PRINT 
423 PRINT -PPE6CER UHE TOUCHE 



436 HCOLOP - 8 HPLOT i 

433 KOHE HEXT K 

448 PRIHT -VOTRE SCOPE 



315 IF S < ' A THEN PRINT "PLUTOT HI-I 

ABLE 

326 IF S > A AND S < • E THEN 

PRINT "PAS TERRULE 

323 IF S ■/ E AND 6 '■ ■ C THEN 

PRINT -PAS TROP HAL. . ." 

538 IF S > C THEN PRIHT 'C 'EST BIE'i 

535 GET A*' SPEED- 235 END 

608 PRIHT 'C'EST EXACT" 
683 S ■ S ♦ 1 

610 PRINT ' GOTO 425 

6009 REN PRESENTATION 
6903 HGR i HCOLOP - 2 

6010 SCALE- 120 
6915 FOR R - 9 TO 64 
6020 POT- R 

.— 6923 DRAU 1 AT 90,100 
6030 NEXT P 
6033 HCOLOP - 1 
6949 FOR Y ■ 56 TO 199 
6043 HPLOT 73. Y TO 186. Y 
6838 NEXT Y 
6033 SCALE- 2 
6868 HCOLOP = 5 
6863 DRAW 2 AT 182.87 
6876 DRAU 3 AT 132.82 
6875 DRAW 4 AT 157,77 
6188 SPEED- HOH£ ■ PRINT 
6185 PRIHT TAE< 5 5 ; -REUISONS NOTRE G60 
GRAPHIE" 
6118 PRIHT FAS' 5>j" 



.13 PRINT 



SUR i 



SAUPE2-U0US HEITRE UN NOM 
PRIHT 
RIHT -DES UILLES 0'JI U0U8 5ERA PR 



6123 

OPOSEE 1 

6139 PRINT - POUR CECI UQUS AUEZ DROIT 

A TPOIS- PRINT 
6133 PRIHT -ESSAIS AU BOUT DES'JUELS UQU 
S SERA " 

6136 PRIHT PRIHT " OOHHEE LA SOLUTION 
■i PRIHT 

6149 PRIHT - POUR PASSER FRAPPER 'RET'J 
RH'."' PRIHT ■ PRIHT 
6143 PRIHT TAB! 5>;*PRESSEP UNE TO'jIHE 

.■- GET fif SPEED- 253 RETURN 
7999 PEtl COOPDUILLES 

7903 DATA 121 , 1.3, 124, 21 . 127 . 1 7, 1 32 , 21 . 
120.27.133.31.118.34, 199,33, 1*9- «0 ■ 121 .1 
2. 124. 46. 169. 39. 95, 37, 88, 38. 99. 47. 157. 3" 
,172,44.168.38.169.56.165.38.136.49.137. 
64,132.37.116.35 

7918 DATA 126.34.90,33,82,51 .30.32.62. 
64,92,61 .163.62. Ill .60. 12 t -67.129.68. 145 
.77,139,83, 146,86, 131.74,144.71. 101.74,9 
3.78,88.68.99.07. 110.83. 116.80, 133.84. 15 
1 .94. 122-98. 115.93. 184.94.9 t -99.66- U5 
7815 DATA 92. 121 .97. 122.113-126.183, 11 
6,184, 189, 123, 116, 126.138.133 164. 146 10 
6,168, 102, 162, 109. 159. 122. 172-1 13- 135- 12 
8, 147, 111. 119. 112. 130.121139169 lit 16 
1.147,32,147,63,130.96 
7118 DATA 4,3, 17.19,19 
7120 DATA 44,62.0 

7138 DATA 45.43.34.34.6! .61-63.6' Il M 
,36,36,43,43,43,45.6 

7140 DATA 63. «, 36. 34,49. 45.45 49 1- 1* 
.1O.18.27..;3-63.61.36.36.0 
7130 DATA 27.27.36.16.43.43.43.45 5» 3» 
. 3 4 , 54 , 6 3 , 6 J , 6 3 . 6 1 . 3 6 . 36 . 8 
7200 REH COORD FRANCE 
7210 DATA 120. 12,121. 11.122. II. 123 II 
124,11,124.12.124.13.123,14,125.15 1 ."• l 



3, 127. 15. 128. 15-129.13. 129- 16. 136. 17 
■ 16.131.18.132.18. 133. 19-134.19 13 1 !. J 
36.28.137,21 . ITS E2. 130/23, 138,24. 13* 
- 139-26- 148. 2t. Ui .26.141 .25- 142 1* 
7228 DATA H3-23 



:e data 

..27. 145-i 



72-34, 17J 
,172,60 



[.45. 173 
72.51 ■ 1 
:. 172,37 



■-14I 



172,38 172 99 



7268 DATA 171.60, 1 7«,<S1, l«9 60-168 61 
168,62.160-63, 167.6*. 166-63,163.66 164.6 

7. I63-68- 163.-;?. 163.70. u;2 71 |«2 ?Z 61 
■ 72.168.72.166,73.i.;0.74.u;d.r5.i-;;. .-.; . | 
66-77.159.78.13^ 79 166.79.161.7? ■ .; .. nj 
-163.77, 164,77, 163. 76,166,77, 167, 77 
7261 DATA 167,77 

72 76 DATA 167.79, 16 7.60. 166. 86. 169 -:i 
169, 82. 168, 03. 167. 84, 167, 85, 168 .8*) i- ■> 
7.169.88,176,69.170.90.170.91. I "8 ~i 16S 
.9Z. 168.92, 167.93- 166.94. 166,93. 166 
6 7.97. 160,98- 169 96. 170.98. 170- ?9 

■9 



7289 DATA 


178 


too 


169, 


01 . 


64 


MV 


163. 170. 104 


l-;9 


103 


169. 


06. 


70 


in-; 


166, 172, 187 


173 


100 


174. 


00. 


.-<. 


MM 


106-177. 108 


178 


106 




07. 


70 


10° 


116.177,111 




112 


176. 








7290 DATA 


173 


1 1 f 


174, 


14. 


73 


11 ■ 


116.171.117 














7306 DATA 
121 . 167. 122 


169 




ISO. 


19. 


66 
*3 


120 

17? 


123.163.123 










►"0 




12-4.138- 123 










■-.-- 




122.154,121 










51 


12'. 



7318 DATA 14 
1.143,1 



129, 14; 



21.14. 



43-11 



19.141 ,U9, 140.118, 139-118- 138-119. 
28.136, 121. 135.122. 134.122. 133. 122. 
31. 124. 136, 124. 129. 124 
7320 DATA 130.123. 138.126.136,127, 
128.136.129,129.130.129,131 

I DATA 138,132.130.13 3. 129. 13*, 
12 7. 134. 126.135. 123- 136. U4 1T6 
122.133, 121- 133. 128-133. 119 113. 
118, 134. 117. 133. U6. 133. 113. 132, 
113.131-112,138.111.111.118.131. 



09 



7348 DATA 198, 136. 167.129. 106.129, 103. 
129. 184.129.104, 110. 104.131 . 183. Ill 1-12. 
01.131 ■ 100- 131 160 1 1099. f>' 9-" |3 
0,97, 131.96,139,96, 129,93. 1 29- 94. 130 93 
129.92, 129. 9t .12990,128.90. 127 
7330 DATA 69,127,88.127.87,127.86.126. 
03. 126,84.123.83. 126.82.123,82. 124 82 12 

!, 82. 122. 81, 122. 80. 122, 79- 121. 80- I 20- 81. 
119. 82- 118. 62- 117. 82. 116. 03- 113. 83. I 14.0 

:. 11 3. 63- 11 2, 64. 111.8*. 110.84. 109 . 8* 106 
,83. 107. 03. 106. 83. 103. 03. 104. 8V103 
7360 DATA 96, 103,87,102,87. 101 .•>; I'M 
86. 100. 86. 99- 66. 90, 06, 97. 86. 96. 86. 95 «■ 
94, 07, 93. 67. 92, 87, 91, 87. 96, 86. 98. 09, 9 1.9 
0,92, 90, 93. 90- 94. 91. 96. 91- 93,91,94.91, 91 
. 9 1.92. 90. 9 1. 90. 90. 09, 99. 00.88. •! •' 
60,85.87.85,96 

7170 DATA 06. 83, 87. 04. 67. 03, 07, 6 i- 07.0 
I, 86, OO.'07, 79 .07. 78. 86- 70. 63, 70, 0*. 77.0! 
.T7. 02. 77, 81- 76-80. 75- 00. 74. 79, 71. 79 72 
76,72.77.71.70.70.70.69.70.60.78.67.79.6 
7, 77. 67. 77. 66. 77- 63, 70. 65. 79. 64. 06. 6*. 01 

7160 DATA 70,63.77.63.76,64.73.64,74.0 
«. 7*. 63. 7*. 62- 7*. 61- 73- 61, 72. 61. 71 61 71 
.60.71.39. 78.39.6 ■ 



ALI BABA 



La caverne d'ALl BABA vous connaissez ? (la deuxieme a 
droite en sorlant). Vous savez certainement qu'elle recele 
un tresor somptueux. Pour une fois, I'objectif de ce jeu 
n'est pas d'entrer dans la caverne. mais d'en sortir, ce qui 
n'est pas forcement plus simple : le genie n'a de cesse de 
bloquer le passage a I'aide d'un fluide magique... 
Le mode d'emploi est dans le programme. 

Jerome GAITS 

Remarques : 

- Le deroulement du programme est indique dans les li- 
gnes de REM. Son adaptation peut se faire relativement 
facilementsurd'autresmaterielsCOMMODORE,sachant 
que : 

• les pokes 1024 a 2023 concement I'ecran, ceux de 55296 a 56295 la 
couleur. 

• 198 : tampon clavier 

• 203 : demiere louche appuyee 

• POKE 650. 128 assure la repetition automatique de toutes les tou- 
ches. 

• PRINT CHRS(142) : mode minuscule 

• PRINT CHRS(14) ; mode majuscule 

- On peut ne pas taper les lignes de REM, celles-ci n'etant pas appe- 
lees par le programme. 

- Les lignes 100 a 320 sont symetriques par rapport a !a Itgne 210. Par 
exemple,tapez la ligne 120. faire RETURN. changezl20en 300 puis RE- 
TURN : les 2 lignes sont entrees. 

- Les couleurssont facilement ameliorables ayant ete prevues pourTV 
Noiret Blanc mais si Ton change la couleurde la bille. la vitesse n'enres- 
sentira. 

- SURTOUT : avant de sauver le programme, faire RUN/RESTORE : il 
pourrait ne pas se correctement. 

- Le joystick doit etre mis dans le port 2. 



12 ■ 

13 

29 DIML<19),H<18>,D<i0>,MUC8©) 

30 POKE32S,0:PGKE329.0 
48 RCJi"e0'88" 

68 PO!\E532S0..0:FOr:E5323I-0 
78 LP=1 MUa>=0-GOSUB18510 
30 RC4:E653.128 REM AUTO-REPEAT 
90 PRINT"rr;CHPJ(142> GDTO330 
34 : 

95 ! 

96 REM****** ************** ****♦*«****#* 

97 REM* RFFICHROE ECRAN * 
39 REM**************** *♦*♦*♦**********• 
99 : 

180 PRINT"«"TABt HJ-.Osa KKW 

118 PRINTTABai ■■■J BtjOOOGGC^S »»:.m.:--j^s M0O0OGO0W " 

128 PRiHTTfiBdiva s*jaa sioaa b*:>w mws swaa maois B*aa 



999 

1888 m rr tTTTiirn ii niiim hii iiiiim w m 

teei ROW DIRECTION DU PI ON « 
1982 REM*******.*. ♦*..«* **.«..., 

1893 

ieie :->:=>: vv=v 

1020 P1=P£EK<PK) : IFP1=R1THEN2910 

1838 IFPl=H3THEHX=*;-:+l C-0T0I999 
1849 IFPi=R4TH£N,-;=;:-i 00T01898 
1058 IFP1=A1THENV=Y~1 :QOTO1090 
1960 IFPl-JKTHENY-V+l iviT0199« 
1878 lFPl=57THENfi**"-"-GOTrj22S0 

1839 [FPl-SITHENQOSUBlSee 
1998 IFV=1THENV=24 

1189 IFY=25THEHV=2 

1118 P=PEEK'933+Y*49*X) 

1128 IFP=160THEHX=XX-V=VV-GOT0182e 

1139 IFP=37THEH3C=SC+1 -T=T+1 ■ GOS" IE-10 I 

1150 F0KE3o3-V*49+X,$l 

1168 P0KE9S3+YY*49+XX,32 

1178 IFT*FT.=NPAND£O=9THENC-C3UBS019 

11S8 IFP=86THEN00T03919 

1138 IFT=HP+1THEN2208 

1209 G0T02319 

149? : 

I 500 PEN**************** **«** ********** 

1501 REM* PAUSE * 

1502 FEN*******************... *#*»***♦*. 
1583 ' 

1518 PT*=TIS 

1528 O0SUB3819 

1539 GOSUE9590 

1549 TIMPT* 

1556 TI=2*TI-T1 

1569 RETURN 

1393 

1939 ■ 

2000 PEN******** ****♦*****•«**>**♦**<** 

2801 REM* OBSTACLES * 

2992 REM******************************* 
2883 i 

2810 IFRR=^snLiIMT.'P'(Ii. (.5 ■ * i m ■ :>0THEN1OHJ 

2010 IFFR=1THEN2I19 

1031? F- = ]!7;-«.It;T't!i:v ...13; -IN;. Fi:p':>. 

2940 IFPEEK<PP>=169THEN1918 

2850 IFPEEr'"-PP:-=R77HENT=T+] 

2860 RR=1 

2070 T1=TI 

2930 003UB3968 

2930 P0KEPP.S6 FOKEPP+54272,1 

2188 CR«1 GOTD1810 

2118 IF<TI-T1.>/60^:=12+NI-2*TATHEN2)99 

2120 PR=8-CP=0 

2139 GOSUB10930 

2148 SC=SC-1B0 

2159 POKEPP.1S0:POKE542?2+PP,2 

2160 MU(LP)=PP:LP=LP+1 
2170 GOSUB4910 

2138 IFSCC=0THEH5910 
2190 IFTOHPTHEN1818 
2200 G03UB3919 
2210 G0T01919 

2993 i 
2939 ■■ 

3500 FErl + + *************t****#***#***#* 

3001 REM* VALEUR DU PAVE * 

3002 REM ********* ***♦*#*************#»: 



6230 RETURN 

6993 

6999 

7900 --_■•".• 

7891 REM* 
7602 PEM****i 



PE&LE DU JEU 



7810 
7820 
7830 
7940 

705? 
7060 
7070 



7150 
7160 
7178 

7190 
7209 
7218 
7228 
7239 
7240 
7250 
7260 
7270 
7280 
7298 
7308 
7318 
7320 
7338 
7340 
7350 
7360 
7379 
7 380 
7339 
7480 
7410 
7429 
7425 
7439 
7449 
7458 
7469 
7465 
7479 
7439 
7498 
7589 
7510 
7520 
7530 
7330 
7939 
7933 
793? 



prihttt 

PRJKT7HBCI8 ■■ i ,■ 

PPINTTRBa0V I _"IL" -/ '"/ 1" 

PPINTTflBMO)- ' '■ 

PPINT-HW" 

PRINT" fPRES DE MULTIPLES A7ENTUPE3. TU ES" 
PRIWPHRVEHU A PENETRER DANS LA CRVEPfVE" 
PRINT"D'*L-. I*!*, DANS L' INTENTION D'EN" 
FPINT"RAMENER QUELQUES 'SOUVENIRS'...- 
PRINT" ID vRLHEUPEUSEMENT.LE GENIE QUI Lfl" 
PPrHT-'OAPPHlT EST TOUTOUFS En EXERCICE." 
PRIHT" sL T'R REVERE ET E33AIE DE T'ENFERMEP" 
FPINT-EN BLOOUAHT LES COULOIRS A L AIDE DE" 
RFINT"3uN FLUIDE KAGIQUE.OUI SE TPAN-.FOPME - 
PRINT-EN 0UELGUE3 SECONDS EN l« PIE-RE LA" 
PRIHT'TLUS DUPE. A MO I US OUE TtJ NE LA DETPUT^E" 
PPINT-RVANT." 

PRINT"«»"THB<:35}" >" 

P0KE13S,0 

OETTJ IFTI=""THEN7260 

pRiNT-ar 

PRINT" IU NE PEUX SORTIR DE LA CRVERNE QU'EH" 
PR I NT "AYANT PRIS TC'US LES TRESORS -LES A*9~. " 
FPINT'Vrt -.L TE FAUPB.a «L0P:' AFFRONTER UN GENIE" 
PPINT"PLUS PUISSRNT EN EFFET.SES MURS SE" 
FPIfiT-iCLiniRIENT PLUS PAP I DEMENT.' 
FPINT-'fl » CHAOUE FOIS OU'UN NOWEAU MUR EST" 
PRINT"ERTI.TON SCOPE DIMTNUE DE 100 POINTS." 
PRINT" LE BUT DU JEU EST CE TENIR LE PLUS" 
FRINT-LONGTEMFS FOSSI ELE. AVANT OUE LE SCORE" 
PPINT"SOIT NUL." 

PRINT"B * 48 POINTS DE BONUS PRR TABLERU" 
*-:•:'■■■ ■ ;.■■:■, :j\. -.'.f=lE"Entp.:=e 2=fen:-';- 
PRIHT" DU TEMPS MIS FOUR FRENDPE" 

PRINT" LES 20 fl 39 DERNIERS +" 

PRINT'-rt *I|-/Krv : CE DERNIER BONUS PEUT ETRE" 
PRINT" NEOATIF." 

PRINT'»'TRB<35>" >" 

FOKE198-0 

GETT*:!FT«"' B THEN74ee 

PPINT"3IB" 

PRINT" T3UR SE DEPLACER : *W" 

PRINTTfiB<26>"i" 

VERS LE HAUT 1" 

VERS LE BRS !" 

A GAUCHE 

A DROITE 



V OU JOYSTICK" 



mr/.*3 9*;:a:i w*v*zi 



130 PRINTTRB'. 11 ■■ 

149 PRINTTRB<11> 

150 PRINTTRBai) 
160 PRINTTRB'::iJ 
170 PRIHTTflB<ll) 
139 PRIHTTRB<il) 
190 PRINTTRB<11> 
200 PPINTTflB<llr 
210 PRINTTAB'.11>' 
220 PRIHTTABCllV 
230 PPI^JTTAB':ll> , 

249 PRIMTTflB(li)' 

250 PRINTTABC11)' 
260 PRINTTRBai >' 
270 PRINTTABU1V 
280 PPINTTRFtllJ 1 
230 PRINTTAEUir 
300 PRIHTTAE'll:-' 1 



u s*j:sa 5«raa mtum mo^ts mama mawa •■ 

■j B*-jooooooaa woorjor»a ■■wooooom '• 

a 5*j:ia st^a B»of<a saxaa s»j;sa " 

:- B4?;aa ■■ix.O'j'jooecoooooooaa s*)as ■• 

a sfcooaa ETjcas mrsiu mama wmjoxa B*oo:*a ■■ 

a mx>'.*% m*m snocc-oo^s B*:-sa s»aa " 

a Bfcooiaa skooojm saoooo'ia saoooaa " 

a mcoa BKwoaa B»^a n^a 5aooo:sa b*:« - 

a w»oo:aa B»ooona "iroooaa b*oo:« " 

a 5»j.'aa wrs.ta Mjoooooaa aeva moaa ■■ 

a snoops 9»o:*a snua B*j:aa b*dq:m B»:oo:aa " 

a suna BtooooorjocM-jooor-rn^a 5*^;aa ■• 

a s*>aa s»aa sfcoaa w^aa B«aa ■ 

a Wbooooooaa eaooooaa s»oooooo:»a " 

a **:<aa sfcaa Biysa snaa Moaa Bioaa - 

a mdoosh Tjouooooooooona atKxm " 

a hdsu Ba:'aa how sacaa mow mtjeu Mom mow ! 



425 

426 
427 
423 
429 
430 
440 
450 
460 
470 

439 
439 



PRINTTABC11) 

PRINTTREdlJ 

PRINT"; 

PRINT' 

PRINT 1 

PRINT "I 

PRINT' 

PRINT 

PRINT' 

PR I NT "I 

PRINT' 

print" mmKKivimw -jfi- 



ooooooaa Mooooaa Moooooooaa ■ 




■D mj ttF ME' 



v-Ti-iEariPiP'it; 



REM**** 

REM* 

REM**** 



R2*= 



INITIALISATION * 



540 
SOT 

560 
579 



>22 V=9 

HS-54273 33=54273 
VS-3429S LS=54272 
WS=54276 RS=54277 
RESTORE 
PP=9 

DATH159-9. 15?.?- 159. 9- 2 16. 12 -21S. 12 
DATA197.14.107, 14.63. 19,47.16.216 
DATA12. 100,300. 100 ] 00 ■ 208. 309, 299 
DATA390. 100-300 
F0RI-1T0I8 
READL' [),H<I3 
I HEX! 

■ fi r i<ii roie 

) READD' I ..- 

) NEXT 

I PPItiT"«WW«tWH»ir t fIlWfl-' 

< PRINTTflB<:33>" <— . ^-.- , 

I F0RI-1T09 

' PRIHTTflB<33>" I- I l-l" 

I NEXT 

I FRINTTAE' 33/" <—> •— '" 

I PR I NT "i 

i pPiriT-ar 

t PRINT"! 



!|" RETURN 

3030 POKE1023+<Y-l>*40+X,BB*43:POKt55293+(Y-l)*4 

3049 FORKO=1TO209-HEXT 

3050 SC=SC+BB 

3060 Cft=9 
3878 G0SUB4919 
3939 GOTO1019 
3998 : 

3939 : 

4890 REM*+****«*******»**»****t*****f* 

4931 REM* SCOPE * 

4002 PEI1 + + + ******** ■ + ♦♦*.♦*.♦*** + ♦******* 

4803 - 

4018 IFSC<0THENSC=9 

4020 PR INT" ^p:-;r!-r;.;.;.»| lllflit --,r 

4039 RETURN 

4993 

4999 

5000 PEM*»» ***♦"* *♦♦»♦♦♦♦***•********# 

5001 FEM* FIN DE LA FARTIE * 
5802 REM**** **♦***+»•**♦**♦♦»♦♦*♦ ****** 
5083 

5010 FOPU=1TO20 

5020 PRim*taamm»M9UBmaemaimmFnEar 

5030 FOPWI-J=1T048;HEXT 

5948 FRlilT'■^^>I^'■»»l»>»^»^£^3'lr.nljHP«E^' , 

5056 R0PHH-1T049 l-IEXTUH 

5060 NEXTW 

5070 GQ3UB8010 

5039 fpiht ^»»»»i»*»»»»»»»»|.P»B»»»»»»»»»»»**[- -i 

50?0 PRINT" '1IIIII1 lOVEP I qilllll'-r-^fllllltr|IM' 

5100 GOSUS9710 

5110 PRINT" rj p;f;.*.;«h ■jp^id; > ■ i>;.«^f-^;» jf:*;-: ■i»;->;»;.| ine AUTRE ? 

5128 OETR.t IFPI-""THEN5120 

5130 IFPt="0"THEN60 

5140 IFP»="N"THEH5ie0 

5158 00T05128 

5160 PF:im"#/iMWK<V'IWl'WWWJWK''. 

5170 :*MMIIPBI«lt>M»IMMM>MM>M>l 

5130 GOTO51S0 

5993 

5999 

£000 PEM+********* »*•»♦♦«*+♦♦*♦»♦«*»*♦ 

6001 REM* BONUS ♦ 

6002 ................................ 




PRINT" 

PRINT" £♦ 

PRINT" [< 

PRINT" r> 

PPINTTRB',26)"- 

PRINT-XW *I TU VEUX PASSER AU TABLEAU SUIVANT" 

PRINT"SANS AVOIR FINI.TAPE C*-l." 

PRINT" -ANS CE CAS,TOUS LES '+' VOMT SE" 

FRINT"TRANSRORMEP EN MURS. . . " 

PRINT" M ~tl APPUVANT SUP LA BARRE D'ESPACE-LR" 

PRINT"PARTIE S'APPETE JUSQU'R CE QUE TU" 

PRINT-APPUIES SUR UNE TOUCHE. " 

0OSUB9500 

RETURN 



REM****************************** 
REM* TEMPS * 

REM****************************** 



TPJ=TI* 

TY=TI 

AFJ=MIP*(TI*,3-2)- 

PRINT "i 

RETURN 



REM* *♦*♦*****#***************.#**** 
REM* NOUVEAU TABLEAU " * 
REM* *♦»***♦****♦ ♦******«****♦**♦•• 

TA=TA+I 

IFTAMTHENGOSUB10230 

PRINT"a ,, TAB':infl2* 

GOSUB8019 

IFTA>lMNDAK>"'-"THENSC=SC*40*TA 

GO3UB4010 

IFTEO0ANDB»O"VTHEHGO8UB6t00 



POr:E933 + X+V#40,32 



♦ 1 



!:»■- 



' C-OTO9?J0O 



3220 
9239 
9240 
9250 
3260 
9279 
92i?0 
9299 
3300 
3310 
9320 
?330 
9349 
9350 
9360 
9370 
9492 
°4?3 
9494 
9495 
9496 
9497 



-.JUIMMIOflflEI 



RR = 9 ■ IFi:p= 1 THENPOKEF F . 3;-- 

IFAJ="*-"ORVX=lTHENGOSUElli 

GOSUB190 

F0P1=1T0LP-1 

FC'KEMU<I>,168 

POKEMUdJ+54272,2 

NEXT! 

NP=274-LP 

TC=TR,IFTC>3THENTC=TC-9FRINT"fifflil"TRB<34?"*" 

RRiNT"fl»i>.i'T';-;-:-ir;i->;fir;F;rii|ip»»»i>»»»»»»>»pp»p»»»»»»p>»»»»>i;:ii.Ti; 

K=22 ■■ Y=9 

PRINT"IIIIMIH" 

F0PRW=1T03 

GOSUB9960 

FOPEU=1T050 NEXTEU.PU 

[FHP>I00THEN9310 

M-'PLUS RSSEZ DE PI0H8 ' !" 

PRIHT"3M»»M»H"0> 

GOTO5970 

POKE333*»Y*40, 31 GOSUB9500 

PRINT"tW»iiHEONUS" PRINT"« 

TI*=TP* 

FI»31-NI+INT<RND<0>*5) 

ftf= ,,„ 



REM******************** *********** 
REM* ATTENTE D'UHE TOUCHE « 

FEM*** ********************* *•**••• ^. 

pRiNT"imiii*»mi*wrtfimtW"ifl»w»mnoi" ^^ ^^^**** 

3 FPESSE UNE TOUCHE POUR I OtlMI W E* T 



.40 PPMir '■i!*iflflW*mWH««IMWIW«H**t"RC* 
750 TE=0 TA=0 

760 PRIHT"*i . . ," 

7?t) PRINT" I BONUS!" 

730 PRINT" r~>" 

■■"■} PRINT" i 1 i" 

880 f- INI" I I—" 

810 PRINT" i '■' 



TAB' 11 IR1* 



II |0J00 

i rui tji'ii 'ii •■■ it >ii >'iii 

■■■ •'■ I Nflliai 'lr.f||.'ll..'W«ll'-N 

:!r>..;.>.-;->:',';>i':'>i»F*iMi 

• ■ ■ ...:.■ 
539 POKES) <-*i.i- i 

■■ 



. ;■,- 

•3010 BO-1 

6020 KT"T] 

6038 PRIJIT-M 

6090 RETURN 



5110 NO-INT' ■ TV -..i -.•;n- 

6120 IFWO ■ 0THI '■■ ■ GOTO6150 

61 J8 IFWO 45THEH00' 100 1*0106150 

158 pun HOHMtlSBi n' 1 ■■ 



i IS ■■ Tl 

..... i| ■•■ ;eTHI N5010 
62m 0CSUB431G 



.huiuciro" 






9518 


ppia>=" s 


PRES' 


.-';;. J 


PR! 2)i 




9530 


PR=1 




9540 


:,,.,.;. - 




9550 


FRINTF'Pt'PP. 






OE TTTt 




.■,,-., 


IUTI -"THEH9620 


■ B 


FOPII-ITO30 


NEXT 


■ ■ ... 


PP»PR*1 




.■'.>'..' 


IFRP>2THENFP 




■• h< 00T04550 






PRINT" 




■ ■ v. 


i-i ruRH 




,. .. 






., .-. 








Fill. **••••*• 


•«*♦*■ 


9701 


i.( r. 


PEi t 


■ ■■■ 


FFM*** •••»*« 




178 






9710 


01 ="hl-i E( Tr 




?71? 


PI iPEEl ■ 


F, F I 



'.-: I- I0H1 I' « I -, ' ' 

... 

■ ■ VR| (RI0H1 Hftfi-i ■ ■ 
UH PEU COURT..." OOTO ' 190 



Suitt.- p.HJ«' ■'' 



NONOS 



Voici un probleme serieux (enfin) : Le chien veut attraper 
I'os, le tique veut attraper le chien mais le chien n'aime pas 
les tiques. A vous de dinger votre animal, avec les quatre 
touches ftechees, pour qu'il devore ses nonos en evitant 
les affreux insectes. Seuls, les maitre-chiens atteindront 
le 3e tableau. 

Thierry BINICHE 

Mode d'empioi : 

POIDS NET DU PROGRAMME A L'EMBALLAGE : 5.893 Ko 
Les commandes Hors mode d'empioi pour les amateurs de POKE : 
POKE 618,10 eteint le curseur et le bruit du clavier (ligne 16) 
POKE2268.10PRINTenvoie!ecurseurduPRINTa la ligne 10 {ouune au- 
tre ligne de a 26)(ligne 40) 

POKE 619. x:POKE 620. y a chaque GLS la valeur x pokee en 619est affi- 
chee dans la 1ere colonne de I'ecran et la valeur y en 620. dans la 
deuxieme colonne. Si x ou y sont inferieurs a 32 on affiche bien sur des 
attributs. ce qui permet en une seule commande d'obtenir un ecran 
double hauteur par exemple (ligne 2010). 

PE£K(»20A) retourne selon la demiere louche du ctavtor pressee. seu- 
lement 7 valeurs differentes, ce qui permet. les 4 touches flechees 
ayant 4 valeurs differentes. d'utiliser simplement I'adressage indirect. 
Ladressage indirect (GOTO K) est utilise (ligne 126.300 etc) pouracce- 
lererleprogrammeen evitant 4 tests pour les touches de direction etau 
moins autant pour determiner les contacts entre les personnages. At- 
tention, ce mode d'adressage oblige a respecter les numeros de ligne 
utilises. 

Pour les vrais francais, je precise que Hi Score veut dire resultat le plus 
haul ; les habitues I'avaient deja compris. Bref, ce record est stocki en 
10000 et 10001 par un DOKE 10000, Hi qui permet de recupererla valeur 
memeapres un run. Le petit test dela ligne 22 permet lorsquel'on com- 
mence le premier jeu d'avoir tin dans Hi car 1'ORIC initialise ses me- 
moiresavec des 85. 
A noter aussi que I'affichage se fait par des POKE et non des PLOT 



_15 HIMEM1OO0O 



i gosuB3ooo:gi 



IFPEEK1 100021-701HEN Ht-DEEKC 






:E4801», 1 ;FORN-a8O2OT0ieo2J: F 

1-1 : IFH-48023THEN 2000 



48163 

2:P0K£B*1 



191 




<-/A.«0:CH-i 


ib+ci:GDTo300 


_223 






j-cijgotojoo 


-247 




-XA-WICH-J 


Z2»ci:goto300 


_2S3 




>T0247 




.300 


t 


PBEKtXNI*30 


a : oor oz 


_30i 


G0T030Q 




.309 









Pi.ftTi,o,o,o:Goi03oo 

_■>?* G0T070O 

_3io PLarz3,o.siP*iPi ii i 

_3Z0 5-l*N-INT(*M/1000>»10' 

_?23 PO'E'tl. J2 
_730 FOON>1T020 

_74l P0kEXN»40,42:P0KEXN.1 
J742 POKEXM-1,4Z:POKEXM*40 

_7J3 POKEXK-40, A2-.P0y.zr.n- I 



... 


.h..*.(!Cm. 11D-Cl:0oro7300 








KM>X«- \ ICH-13O*CI:OOT07»0O 




■- .-:.' . . - : 








00TO724? 




0OTO724 F 




r»p£E>. ixN.-i-iooiooiOi 


. .■: 


GOTO7300 


'307 






GOTO'SOO 


:■:■■:. 


GO '07300 


7316 








7424 


P< Jl »P(J 1 .31 : S0UHD1 , 3O.0:PL 


AIT3 














pokexa, 1a: P0kE«>j,ch: xa«xn 


7310 


PL0T23,0.STP»IPIJI . 



1010 PLO'3,0, -JOVEUB N. : - : PLOT 13. O, 5 TR» 1 J I 

10JO piOT2O,O,3:Pl.0T2i.O,-pt»: -:pi_OT23,o.STR»iP<; 

L0ri2.1.MlB«[SIP«lHH ,21 

1060 P0B^.0i o je:PL0ix,s.i2:PL0T»,2o,i7:iiEArx 
io?o POPv-3ro23:PLoro,'r,i? : pLoti,Y,i7:PLOT3?,Y,i: 

POP>:-430JOTO4908O STEP 40 : POKEX . 1 ?: r:E .-. T ) 



H:GOT08100 
io:gotobioo 




iKPGt-.EN, lo:HEX' 






_8323 XN-XA-I 



o^ c 



_8323 G0T0700 



_7040 IFXP-xn>40THEHOP--40:GOT07030 
_7042 IFXfl-XP)40THENDP-40:GOT07030 



_7070 IFF-I70BF1-17THEFJ DP-SCN1DPI*7 

_70vo xp-xpk>p:pokexp, 125>ci:pokexp-: 



ALI BABA 



a suite de la page 4 ^^ ^% ^1 



I0O90 PETUPN 



13033 
10094 

10093 



9740 IFG1<P1THEH0I-"FEUT MIEUX FRIRE. " GOTO3390 

9738 IF01=R1FiHM2<P2THEHQ»="TU V EST PRE3QUE I!' 

OOTO9890 

9760 IF01=P1RHDO2=P2THENQ*»"C'ES1 DU DEJfl VU I" 

OOTO9890 

9770 Q*""RECGRD firjRND HEME PRTTU HI" 

9789 P0KEV3, IS POKERS, 31 POKE3S.240 
9785 ■ 

9790 FORN-1TO10 _ 
9390 P0KEL3,LOI.'-PCi<EHS,H<t6 ® 
9310 P0KEW3.33 « 
9320 FORJ-lTOD'IfO-HEXT 
9333 POKEWS.0 p 
9840 FOR J=1TTJ20: NEXT 
9350 NEXT 

9960 POKEWS,0:POK£VS,0 
9970 Pl-Q] -R2=Q2 
9380 PQKE926 .PI P0KE8 29. R3 ^^ 
9390 PRIHr a )MMIMiiMMnHaMIHMHQHM 
.0»"T" 

9300 F0RI-1TO2888NEXT 

9910 Rl#-«I0HT»C8TR*<R1)>LEH<»TM<R1»-I)i 

pi«-rioht«: h 00 , '+ri».2; 

9320 R2«-PIuHTf(STP«<P2).LE»KSTR«<R2>;-|)i 

P2l"RIOHTK"00"*R2»-2> 

9W0 RCt-«l«*" = "♦«• 




9940 

9iT>(? 
9951 
9332 
3?5? 
9954 
9?-;T. 
9956 
9957 
3933 
9960 
9970 
99*0 
9930 



reii***...***..*.*.*.*.*.*-...*.... 
REM* BRUITRGE * 

PEJ1* ♦+*♦**+*+*+*♦+♦+**«**♦ «***♦*♦• 



10^00 

19219 
10229 
19221 i 
10222 PEM- 
""" REM- 
REH- 



FEn**** ******************** **«*♦■ 
PEM* HlPPOCflllPE ' 

PEM»*«*»************"**»*****+*** : 

BfiTfie.z.e.o.e.fl^.ss-e.e^sa.e 

DRTFI8.110.0.0.60.0,9.76,0 
DRTfll. 153,0,0,63.0-0-63.128 
DHTR0, 31 -9.0- 15. O.0. 6- 0.9. 6.0 
DRTfl0.4.0.0.1£.0,0.3,9,0.24,0 
rJRTRO, 17. 12^.9,23.0.0. 14,8 
FOR I =07062 

PEFiriDft P0KES?2*r.Dfl-NEXT 
FOKEV+21-1 PDKE2049.13 
pf.iKEV+33. 1 POKEV+23.1 
P0t'EV+39.3 POKEV+16.1 
POKEV.50 -pOKEV+1,100 
RETURN 



19499 

> 10500 

► 10501 
F 19502 

10503 
10510 
10520 
19530 
10540 
10550 
105t0 
10370 



REM**W *♦**♦»♦*•**♦♦»♦♦♦*•»*♦»♦♦♦ 
REM* EHTPEE DES DOHtlEES « 
REiHi»***t«»»«*#*«**«**«f •»♦*♦*♦■• 

POKE 198-0 

PRIH1 ■::v>»»»»i;:-r.u::-TU LR PEGLE DU JEU ?■ 

OETR) IFPJ= ,I "THEH18330 

I FRJ « " " THENG0SUB79 1 

PRINT "^HKWIiUEL NIVERU DE DIFFICULTE "' 'DE fi 9J" 

PPIHT"Wt 9 FflCILESMBWPMW * DIFFICILE" 

POKE 198,0 



-NOUVERU MUR- 



FOKEVj-r; priCER?^' F0KE5S.247 
POKEW-i .17" PQKEHS, 40 ' POKELS. 
FORPZ-1TO30 NEXT 



19223 
10S24 
19123 
10226 
10230 
10249 
1 1^30 
10260 
10270 



HOUVEflU TRBLEflU 



11J0/') 
10O22 
10023 
10024 
10030 
I084O 
10050 



REM- 



-MUP FERME- 



FORP2"\5TO0STEP-2 

P0KEVS,PZ:P0KERS,13 

POKES3-0POKEHS.40 

POKELS, 200 : POKEWS, 129 

NEXT 

POKEH3.0 POKERS. O 



FOlEir:.. 17 fOKER-i. 31 POKESS.240 
F0RH0»1T06 

FOP1=2000TO7909?TEP280 
FH=INTfI/256>:FL»I-FH*256 
POKEMS, FH*33 ■ POKELS . FL 

10280 NEXT I. NO 

10290 P0KEWS.32 

10300 RETURN 

19301 i 

19382 

1O303 

10304 

10393 

10306 

10319 

10320 

10339 

10349 



19580 OETRJ IFR*=""THEN18580 
10599 IFRJ<' , 0"ORRt>"9"THEHlO58O 

10609 NI=VRL(R«> 

10610 NH=R* 

18620 PRIHT"WOa , «VSTICK OU shiflVIEP ?■ 

18638 POKE 193,8 

19640 GETRt:IFP* = ' ,,, THEN10640 

- 10650 1FR« = "C ,, TNENPK=203 fll = 10 A2-I2 R3-44 fi4-47: 

- Sl-60 Rl«64- GOTO 18680 

- 19660 IFRt-"J"THENPK-36320 fll-126 R2-125 A3-1 19 H4-123 
S1«1I1:R1-IH OOTO10680 

10670 OOTO10630 

10630 RETURN 

1B988 i 

10989 

10990 

10991 

18992 

19993 

118"" 

110 



FIN RVRNT NORMRLE 



REM 

REM MUR MRNOE 

REM- - 

POKEV3.13 POKERS. 45 POKESS. 165 
priKFU'i.33 P0KEHS.6 POKELS. 5 
FORKZ-lTOieeNEXT 
P0KEHS.32 



REft- 

REM- 
PEM-- 

1 F0RJ»2T024 
1 F0RI-13TO32 
I O-9S3*J*40+I 

i itm :■ ■ ■ : ■ ' ■ ' running , ,, . 

I IFPEEK<O)-97THENPOKEO,160 P0KE0*54272,2 001011070 
i P0KE0.97 POKE0*34272.4 
I NP-NP*1 



> NEXT I. J 
I HP-HP- I ' 
I R*-"" 
I RETURN 



-1 



SHUTTLE BATTLE 



Vous etes le commandant de la base qui se trouve au sol 
et vous devez detruire les transporters qui viennent en- 
vahir la terre. Mais ces vaisseaux sont bien defendus et 
paraissent intouchables. Mais il y a une faille : il faut 
d'abord avoir I'ailedroite, puis la gauche etenfin detruire le 
poste de pilotage. II faut detruire les vagues successives 
en un minimum de coups. 

Pour deplacer votre base, la touche Q pour la gauche, P 
pour la droite et la barre d'espacement pour tirer. Bonne 
chance. 

Marc GALLICANI 



240 GOSUB 1990 
230 M-0 
260 TINE-O 



CALL CLEAR 
CALL SCREEN<2) 
GOSUB 740 
CALL CLEAR 
FOR Gl-1 TO 30 
RANDOMIZE 

CALL HCHAR1<RND»20: 
NEXT Gl 

M«-"NBRE DE COUPS: ' 
KJ-2 

GOSUB 1950 
KJ-17 
CALL K£Y<< 
TIME-TIME 
IF K-80 THEN 1010 
IF K-Bl THEN 1030 
IF K-32 THEN 1070 
CALL HCHAR 
CALL HCHAR 
REM CALL HCHAR (Y 
i REM CALL HCHAR<Y2 



T\-99 4/^ 



<RND«31). 1,159) 



' CALL HCHAR 
I CALL HCHAR 
) RANDOMIZE 



.32) 



'l. 



570 1 
5B0 \ 
590 I 
600 i 



iINT< CRND«4>-2) ] 
< 1 THEN 1050 



•32 THEN 620 
V<1 THEN 640 



,10 GOTO 650 
620 V-32 
630 GOTO 650 
640 V-l 
650 VI-V2 
660 XX1-X2 

670 x-y.i 

690 V2"V2-1INTI (RND»3>- 

690 IF ¥2'[1 THEN 720 

700 X2-X2*IINTI (RND»3)- 

710 GOTO 420 

720 V2"l 

730 GOTO 700 






7SO x^k, 

750 CALL CDL0R(5. I 

760 CALL COLORU 

770 CALL COLORd 

780 CALL CDL0RI3, I 

790 CALL COLOR {' 

BOO CALL COLOR (B,l 

BIO CALL CHARU39, ' 

B20 CALL COLOR 

B30 CALL CHAR(96,"1B183C3C7E7EFFFF") 

840 CALL CHAR(136."3C7EFFFFFFFF7£3C") 

BSO CALL COLOR ft 4, 14,2) 

B60 Fl-3 

870 CALL CDL0Rtl,16, 1) 

B80 CALL COLOR (9, 9,1) 

090 Xl-16 



930 Y2-2 
940 X2-I6 
950 H-5 
960 VI 2 



9B0 : 







990 CALL COLOR (2, 11, 1> 
000 RETURN 
010 X1=XI*1 
020 GOTO 470 
030 XI-X1-1 
O40 GOTO 470 
050 H-l 
060 GOTD 5B0 

070 CALL SOUNDdO, 1000,0,700,1 
OBO CALL VCHARt 1, XI, 33, 21) 
090 CALL SOUNDdO, 390. 0, 500, O] 
100 CALL VCH0Rd,Xl,32,21) 
1 10 VB=VB*1 
120 H*-STR»CVB) 
130 GOSUB 1930 
140 IF XI-XX2*2 THEN 1190 
150 IF GT1'3 THEN 1170 
160 IF XI-KK2 THEN 1260 
170 IF X1»XX2 THEN 1350 
190 GOTO 470 
190 REM 

200 IF GT-0 THEN 1220 
210 GOTO 470 

220 CALL SOUNDdOO, 900,0) 
230 Fl-Fl-I 
240 5T-3 
250 GOTO 470 
260 IF GT1 = THEN 12B0 
270 GOTO 470 
280 IF GT-3 THEN 1300 
290 GOTO 470 



V-V»] 



310 I 



-Fl- 



GTi-; 

330 CALL SOUND UOi 
340 GOTO 470 
330 CALL SCREEN (1. 
360 CALL SOUND (15i 
370 CALL SCREEN (2 
380 CALL SOUND (50 
390 CALL SCREENU. 
400 CALL S0UN0I50 
410 CALL SCREENI2 
420 CALL SOUND 
430 CALL SOUND 
440 Fl-0 



, 1000,0, 1350,0 



220,220,0,440.0,660,0, 



320 


on n GOSUB 


154 


B30 


GOTO 470 




7..-." 


CALL CHOR< 


T6 




CALL COLOR 




SM 


RETURN 




570 


CALL CHAR! 


S6, 


580 


CALL COLOR 




390 


RETURN 




(,.-.,, 


CALL CHARt 


36, 


,■:■: : ' i 


CALL COLOR 




620 


RETURN 




630 


CALL CHAR! 


36, 


640 


CALL COLOR 




650 


RETURN 




660 


CALL CHAR! 


TA 


670 


CALL COLOR 


14, 


690 


CALL CHAR! 


36, 




CALL COLOR 


14 


710 


RETURN 




no 


CALL CHORI 




730 


CALL COLOR 


14, 


740 


RETURN 




730 


CALL CHARI 


36, 


760 


CALL COLOR 




770 


RETURN 




780 


CALL CHAR! 


3A, 


790 


CALL COLOR 




BOO 


RETURN 




RIO 


CALL CHARt 


36, 


S20 


CALL COLOR 




BSO 


RETURN 




B40 


CALL CHAR( 


v>. 


BSO 


CALL COLOR 




B60 


RETURN 




B70 


CALL CLEAR 




BBO 


CALL SCREENI13 



), 1370. 1600. 1630, 1660. 1690. 1720, 1750. 17BO, IB10. 1B40 

;97C?EFFFF7E3C1B"> 



'FFIBI83C7E7E3C1 



i O0007EFFFF7E"l 



'003C7EAAFF6A3F 



1 F FOOF FOOFFOOFFOO 



FF7E3C7EFF7E3C' 



143231 30C0CF0F0" 



FOFOOCOC 12234393 ■" 



0000001B19": 



00003CFF3COO"! 



•FF7F3FlFriF070301 ■ 




* 



920 IF 5-0 THEN 1910 
930 IF K-13 THEN 230 
940 STOP 
930 FOR T8-1 TO LENiMI 



) CALL > 
> NEX1 



TB 



((24,1 



♦KJ,A5CtSEG«CH«,TB. 1) 



: SIECLE," 



! GRAND DANGER NOUS MENACE"; 



980 RETURN 

990 CALL CLEAR 
2000 CALL SCREEN (S) 

2010 PRINT "LE 3/4/1999 PEVMEINADE CITY' 
2020 PRINT : : :: 
2030 PRINT "A L'AUBE DE CE ) 
US ASSIGNONS COHHE'll 
2040 PRINT "MISSION DE DETRUIRE LES ENVAHISSEURS DE NOTRE PLANETE BLEUE" 
EPTEZ VOUS VOTRE PERILLEUSE MISSIONED. N) - 
2050 COLL KEYIO.K.S) 
2060 IF S-0 THEN 2030 
2070 IF K-79 THEN 2270 
2080 END 

2090 CALL COLOR 1 1.1 6, 1) 
CALL C0LOR(2, 13. II 



10 CAI 
20 F 



430 * 



■INT( 



• 10) H 



460 Fl. 

470 GT-0 

4B0 GTl-O 

490 M-M*I 

500 IF M>11 THEN 

310 CALL COLOR U 4 



22O0 PR 

2210 PR 

2220 PR 

2230 PR: 

2240 CAI 
2250 

2260 RE' 

2270 CAI 

-7,0) 22B0 PR 

TOUCHER L 

2290 PR] 
230O 



CLEAR 




L CLEAR 

VOS ENMEMIS SONT Tf 

iILE DROITE. PUIS LA 

GAUCHE. ET ENSUITE,' 

SER LE CENTRE":: : 



ARRE D'ESPACEMENT-: 



"DEFENDUSiPOUR LES AVOIR IL FAUT D'ABOPD 



BONNE CHANCE": :: : "GAUCHE-: -O F 



NT IIIl"TAPEZ UNE TOUCHE.. 
L KEY(O.GHTT,S) 
S"0 THEN 2320 
2090 



MOUCHE ET CB 



HeureuxpossesseursdeTRS 80 IVoila deux programmes 
pour le prix d'un seul. lis sont d'ailleurs tous les deux tres 
originaux en ce qui concerne leurs buts. 

CB/BAS : Ce programme permet de donner quelques 
idees d'indicatifs utilises en CB. Tres ciassique peut-etre 
modifie selon I'imprimante lignes 130 - 190 - 200 (lei, il 
s'agit d'une OKI 80). Les datas peuvent egalement etre 
changes selon les gouts !... II suffit d'en respecter le nom- 
bre(105et39). 

J.R OZBOLT 

30 CLEOR I00:DIMO«d05>.BK40) 

40 FDR 1=1 TO IBS 

50 RERDOKI) 

60 NEXT 

70 FOR 1=1 TO 39 

FJ0 PEOD B*(I> 

90 NEXT I 

100 CLS 

110 INPUT-'DONNEZ LE NUMERO DE VOTRE DEPORTEMENT :"'.F 

120 IF F<1 OR F>95 THEN CLS I GOTO 110 

130 IFPEEKM4318)) 127 THEN PRINT" IHPRIMRNTE NON PRETE'iOOTO 13 

140 REM LPRINTCHR«ill > SI VOUS VOULEZ UN HRUT DE PRGE 
INPUT"METTEZ LE PRPIER EN HOUT HE PRDE 
ft DONNEZ LE NOMBRE DE LIGNEb"iNL 
Ir NL<10 OR ML) EG THEN CLSfGOTO 150 

170 P0KE1E424.NL:REM NBRE DE LIGNES 

I PRINT:PRINT"RPPUYEZ SUR UNE TOUCHE POUR ORRETER" 
! LPRINTCHR*'31)JLPnlNT"V0ICI QUELOUES IDEES ..." 

290 LPRINTCHR»'30>1LPRINT" " 

210 N»"-"iB-RND13) 

220 FOR J-l TO B 

230 C-RND(1B5> 

TUB N»-N**0*(C) 

230 C-RNDd0>UF RIGHT«iN». 1 ) -LEFT*(B«tC) . 1 ) THEN 250 I 
REM EVITE DE DOUBLER LES L ETTRES CONTIGUES 

.'V. Nt-N4*B«IC) 

270 NEXT 

2B0 IFRND(3))1 'MEN R-1IG0TO 340 

i"30 REM 1 FOIS SUR 3 DONNE LE PALINDROME 

3«0 R-BiFDR I=LEN(N«) TO 1 STEP-1 

310 N1«-N1»*MID4<N", I, I) 

Z7Z NEXT 

ZZe N*=NI*1N1»-"" 

740 LPRINTNH- "tF, 1G-G* 1 t NB-NB* 1 I IF HD-4 THEN LPRINT NB-0 

350 IF PEEK(1G425))-NL THEN LPRINTCHRt' 12) ILPRINT" " 

ZW> IF RND(3))3 UF ROB THEN 300 

370 IF INKEY»() ""THEN END 

380 GOTO 210 

390 DOTA D.T.C.Di E.F.D.H, I.S.H.L.fl. N, X.P. D, R. S. T,U, V. W. X. Y. Z 

4180 DOTO OU. OR. Hi. FJR.BL.CR. CL.DR.FF.FR.FL.DL.GR. ON, GU. H. CH. K.L 

8.0U.S6.aP.6T.BM.SL,9C. TR. TL. TT. VR. VL. X. Y. Z.ER.EL.ED. EF, FN. IN. 

OM.DD.O.O.UL.UT.US.RL. TH 

'.10 DOTO BTR, BB.LV. RM.UN, RN.LF. LI.RCH.MB, OD, HL. »T. OV. fl? . OPP, 

420 Dnm o.n.n.D. I. I. u.y.e.OiU.u. o.tnu.nu, ni.riE.no, OY.ro.tij 
.on.ni.rjN.ou.ny.OR.oM.nc. yo. vu.nN 
430 REM CB. JF OZBOLT 



MOUCHE : Moins ciassique d'utilisation, le programme 
n" 2 peut aider les pecheurs a la mouche a concevoir leurs 
propres modeles. Pas de difficultes particulieres a la mise 
au point. Une modification des PRINT en LPRINT permet- 
traitdeconserver une trace des modeles conpusparordi- 
nateur : une CAO en quelque sorte !... 

J.F OZBOLT 



30 RHNDOM 
40 CLERR500 

50 POKE 16553. 2551'EVITE DES PROBLEMES L0RS DU RERD/DRTfi 
G0 DEFSTfl fl-HSDEFINT 1-0, T-Z 
70 ME»-" UN OUTRE MODELE (ENTER) " 
100 * INITIOLISOTION 

110 DIMC1(3).C2(S),C3CB),C4C4).C5C3).HT(4) 
3),HC<8).B1(5).CEC3) 

TD 31READ CKJ) INEXTJ 

TO 3tRE0D C2fJ!'NEXTJ 

TO SiREHD C3(J))NEXTJ 

TO 4IRE0D C4<JHnEXTJ 

TO 21REHD C5CJ>1NEXTJ 

TO 4:RERD HT(J):NEXTJ 

TO 31REHD HE(J)1NEXTJ 

TO BiREflD HC(J> iNEXTJ 

TO 4IRE0D 01 (J) INEXTJ 

TD 21RERD 02CJHNEXTJ 

TO 31RE0D CE(J) INEXTJ 
240 • DONNEES PEUVONT ETRE MODIFIEES SELON LE PECHEUR 
250 DOTO FIN.MOYEN.ePOIB 
2E0 DOTO SOIE.LOINE. POIL 

270 DOTO JOUNE.NOIR. VIOLET. VERT. OHONOE. MOPRON. ROUGE. BLONC 
280 DOTO PHOOUE.LIEVRE. RENORD. CHEVREU IL 
290 DOTB "CERCLE OR"."CERCLE RRGENT" 
300 DRTO PERDRIX.POULE. BECOSSE. SONSONNET 
310 DOTR DOUBLE-SIMPLE. "EN POLMER" 

320 DRTO BLRNC. ROUX. OLIVE. MIEL. BLOI REOU. GINGEMBRE, ORIS. NOI R 
330 DOTO DROITES.RVRNCEES.COUCHEES. DOUBLES 
340 DOTO "EN HRCKLE". "PLUMES DE " 
350 DOTO HOCKLES, QONGL IER. FOI SON 
3G0 ' 



17B 


DIM 


HFC 


130 


K)H 


.1-1 


lAfl 


FOR 


J-l 


150 


FOR 


J-l 


Ififl 


KOH 


.!-] 


170 


FOR 


.1-1 


IRfll 


FOR 


1-1 


1<W 


FflR 


J-l 


. IH 


FOR 


J-l 


?1fl 


FOR 


.r-i 


77tl 


FDR 


i-i 


230 


FOR 


j" i 



370 L 



-l!L2-10lB-"NEANr"lEB«" 



'i GOSUB G00 





TRS80 

420 HT-" "iGOSUB 700 

430 • vr 

440 HE«" ":GOSUB 800 • " / 

43a * 

4G0 0L= GOSUB 900 

47B * 

4B0 CO-" " tGOSUB 960 

500 CLS 

510 PRINT"* - - - MOUCHE NO" tLI"« * * *' 

520 PRINTJPRINT" CORPS : "liPRINTCO 

525 PRINT" ---=-" 

530 PRINT" HOCKLE DE TETE : " t t PRINTTRB1 20JHT 

335 PRINT" — — — »■ 

540 PRINT" HOCKLE D" EPOULE 1 " 1 i PRINTTfi8(2fl>H£ 

545 PRINT" ——==————- 

550 PRINT" RILES : " 1 : PRI NTTOBf 20)RL 

555 PRINT" 

560 PRINT" CEROUES J " I : PRINTTRB* 20)CO 

565 PRINT" — — -" 

570 GOSUB 3000 

580 NEXT L 

390 PRINTiPRINT'^'RUTRES SOLUTIONS fOUI OU NON)"iGOSUB 2BB0 

591 IF LEFT*(R», 1 )-"N"THEN PR1NT"0 LO PROCHOINE • " lEND 

592 L1-H + 101L2-L2--101GOTO 380 
600 " 

610 GOSUB 1B301CO-C1(N)«ES 

£36 GOSUB 1030iCO-CO«C2<N)*ES 

630 IFN-3 GOTO 660 

640 DOSUB lB80iCD»CO*C3<N)*ES 

630 GOSUB 10201 IF N-l RETURN ELSE C0-C0»C5tN) i RETURN 

&60 GOSUB1040ICO-CO-C4(N>*E5:GOrO650 

788 ' 

710 COSUB 10201 IF N-l THEN HT-8' RETURN 

720 GOSUB 10401HT-HTCN) iRETUHN 

B00 ' 

810 GOSUB 1030iHE-HEiN)*ES 

820 GDSUB 1080iHE-HE*HC(N) 

830 RETURN 

900 ' 

910 GOSUB 1030UF NOI THEN Hl.-RHNHES ELSE RL-BiRETURN 

920 GOSUB 1020iflL-OL*O2(N)+ES 

930 IF N-l THEN GOSUB 10801 0L-OL*HC( N) i RETURN 

940 GOSUB lB40iRL-nL«HT(N) 

930 RETURN 

960 ' 

970 DOSUB 10401 IF N-4 THEN CO-BiRETURN 

9B0 CQ-CE(N)*ESUFN-1THEN GOSUB 10B0ICO-CO'HC IN) I RETURN 

1000 • 

1010 ' 

1020 N-INT(2*RND10>)*1 I RETURN 

1030 N-INTi3«RND(B) >*HRETURN 

1040 N-INTc4«RND(0! 1*1 IRETURN 

1030 N-INT<5-RND(0) )• I IRETURN 

1000 N-[NT(8*RNDi0))*l "RETURN 

2000 ' 

2010 INPUIR»IH»-LEFT»(R4. 1) UF R» -■ , 0"ORR»-' , N" THEN GOTO20JB 

2B2B PRINT'oul ou non" IOOTD2O10 

2030 RETURN 

3000 - 

3010 EL*-INMEY» 

302B FOR 1-1 TO 300INEXTHF CL*0""THF.N RETURN 

3030 PRINT3032, ■ "' 

*040 poh i-i ii) 3BBtNi:xiii i RiN!ijn' , .; , .pii *i Himii 'bski pj 



DEUX SUPER-CONCOURS PERMANENTS 

1 0000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres I 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preterms sur 
la grille recapitulative men- 
auelle. 

Pas de Jury, pas de decision ac- 
bitraire, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANCAIS. Si 
votre programme n'est 'pas tout 
a fait au point, un de nos spe- 
cialises vous dira comment 
1'ameliorer pour pou voir nous le 
proposer a nouveau. 



Pour participer. il vous sutfit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement : 

ART. 1 : HEBDOGICIEL organise 
de facon mensuelle et tnmes- 
trielle un concours dole de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre 
ART. 2 : Ce concours est ouvert a 
tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuiternent sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature 

ART. 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
seleclionner sur la base de la 
qualite et de ioriginalite les logi- 
ciels qui sonl publies dans le 
journal. 

ART. 4 Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel 

ART. 5: Le pnx alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le presenl reglement a 
ete depose chez Maltre Jauna- 
tre. 1 . rue des Halles 75001 Paris. 
ART ,8: HEBDOGICIEL se reser- 



ve te droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9. La participation au con- 
cours entraine lacceptation par 
les concurrents du presenl re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 

FOY- 75008 PARIS 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Norn : 

Prenom : 

Age : Protession : 

Adresse ; 

N^ telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre lauteurdece programme qui n'est mune imitation mune 
copie d'un programme existant. Ce programme resie ma propnete et 
j'autonse HEBDOGICIEL a le pubher La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un descrip tif delaille du materiel utrhse. 
d'une notice d'utilisation du prog ramme . Les supports des program- 
mes publies sont conserve's ! n'oubliez done pas d'en faire une copie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve - 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'indiquant sur votre 
Bon de Participation. 

• N'oubliez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM, votre nom, le nom du pro- 
gramme etle materiel auquelil est 



destine. Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de rimprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a te charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• Encequiconcernelesbonsde 
participation, mettez voire adres- 
se com p lete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces", "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 



Ne nous envoyez plus d'envelop- 
pestimbrees. mettez simplement 
les timbres joints a votre envoi. 

• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons, evitez de nous envoyez 
les jeux suivants ! BIORYTHMES, 
MASTERMIND, RENDU, TOUR DE 
HANOI. CALENDRIER, BATAILLE 
NAVALE. POKER, JACKPOT 
BOWLING. BLACK JACK. LABY- 
RINTHE, MEMORY SIMON. 421, 
OTHELLO. SOLITAIRE. LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRA1RIE (EDl- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



DDI OFFRE CINO CASSETTES 
DATA OR VIERGES AU MEIL- 
LEUR PROGRAMME DE CHA- 
QUE CATEGORIE. 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HEIIILETT- PACKARD une adhe- 
sion gratuite a son club. 



Les editions du CAGIRE off rent 
au meilleur logiciel du mots sur 
HP 41, leurlivre"autourdelabou- 
cle" de Janick TAILLANDIER. 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 

2 KO DE MEMOIRE, INTERFA- 
CES RS. 232. C. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON. 



GAGNANT DU CONCOURS TRIMESTRIEL HEBDO- 
GICIEL 

Bruno INTERNICOLA 57190 FLORANGES pour SAU- 
VETAGE sur VIC 20 gagne un voyage en Californie. 



GAGNANT DU CONCOURS MENSUEL HEBDOGICIEL 

Frederic MELINE 21270 VONGES pour GNAFU sur 
COMMODORE 64 gagne 10 000 Frs. 



GAGNANT DE LA BROTHER EP. 22 OFFERTE PAR 
DURIEZ 

Bruno INTERNICOLA 57190 FLORANGES. 

GAGNANT DES DEUX CASSETTES OFFERTES PAR 
SQUIRELLE 

Emmanuel KARTMANN 04220 SAINTE TULLE pour 
JUMP sur ORIC. 

GAGNANT DU LIVRE "AUTOUR DE LA BOUCLE" DE 
JANICK TAILLANDIER 

EDITIONS CAGIRE POUR LE MEILLEUR LOGICIEL 
SUR HP 41 

Monsieur GERVAT 78340 LES CLAYES SOUS BOIS 
pour EXD sur HP 41 

GAGNANTS DE LA GAMME COMPLETE DE CASSET- 
TES DE JEUX SUR FX 702 P ET PC15O0 OFFERTE PAR 
LOGI'STICK : 

Robert TREGUIER pour APOLLO 12 sur FX 702 P 
Jean-Luc DELADRIERE 58000 GEMBLOUX pour TE- 
LEPHONE sur PC 1500 

GAGNANTS DES UVRES DE LA REGLE A CALCUL ET 
DE CINQ CASSETTES VIERGES DATA OR OFFERTES 
PAR DDI : 

Bruno INTERNICOLA pour SAUVETAGE sur VIC 20 
Frederic MELINE pour GNAFU sur COMMODORE 64 
Franck CORNIQUET pour CATA-MARRANT sur APPLE 
Robert TREGUIER pour APOLLO 12 sur FX 702 P 
Christophe REULLIER pour TREMPUN sue VIC 20 
Monsieur GERVAT pour EXD sur HP 41 
Emmanuel KARTMANN pour JUMP sur ORIC 
Jean-Luc DELADRIERE pour TELEPHONE sur PC 1500 
Luc COIFFIER pour CARTE DU MONDE sur MZ 80 
Benoit RONDEAU pour GLUNCH sur ZX 81 
Jocetyn DONZE pour DAMES ANGLAISES sur PC 1211 
Pascal RANNOU pour PECHE sur TI99/4A Basic Simple 
Frederic MAMIER pour MONCHKA sur TI99/4A Basic 
Etendu 

Michel PIPON pour NIGHT FLIGHT sur T07 
Pierre LOTZ pour FRISSONS sur CANON X07 
Patrice CAMUS pour DEPHTS WAR sur MPF II 



CONCOURS "GEORGES LECLERE" 



Le programme de Georges LE- 
CLERE dans sa conception ac- 
tuelle, contient cinq parties diffe- 
rentes, qui sont toutes axees sur 
la manipulation de lettres de I'al- 
phabet par I'intermediaire du cla- 
vier de I'ordinateur. 
Les deux premiers jeux sont iden- 
tiques (seul I'adversaire change : 
ordinateur ou autre joueur) et 
constituent une ebauche de Po- 
ker, ou les cartes sont remplacees 
par les lettres de i'alphabet. Cha- 
que joueur, a tour de role, appuie 
sur une lettre qui agira comme le 
levier d'un JACK POT : la touche 
utilisee genere une lettre sur 
I'ecran qui va se ranger dans le 
camp du joueur. 

C'est done un jeu de hasard, ou 
I'objectif (non definl dans le pro- 
gramme) serait d'obtenir le plus 
rapidement possible, une seriede 
5 lettres rangees par ordre alpha- 
betique (c'est un exemple). 
La troisieme partie est une de- 
monstration automatique ou 
"TIC (le premier joueur) joue ses 
lettres dans I'ordre alphabetique 
et "TOC" (le deuxieme joueur) 
joue d'une facon aleatoire. 
La quatrieme partie est un jeu 
destine a I'apprentissage de I'al- 
phabet. Dans la version actuelle 
du programme, le jeu est concu 
pour 1 joueur qui joue contre I'or- 
dinateur. Chacun des deux 
joueurs possede un camp consti- 
tue d'une ligne contenant les let- 



tres de I'alphabet et d'une ligne 
initialement vierge qui contiendra 
les reponses correctes pour cha- 
que joueur (cf D1). 
L'ordinateur commence la partie 
en generant une lettre qui vient se 
placer dans son camp. II fait en- 
suite clignoter une des lettres du 
joueur qui doit alors appuyer sur 
la touche correspondante du cla- 
vier. Si la reponse du joueur est 
correcte, la lettre est rangee dans 
le camp du joueur. Si la reponse 
est incorrecte, la lettre reste-a..sa 
place et i'ordinateur reprend la 
main. 

La cinquieme partie est identique 
a la quatrieme, mais avec utilisa- 
tion des manettes de jeu. 
Le programme de Georges LE- 
CLERE est en fait une ebauchedu 
jeu de lettre. 

L'objectifdu concours est dereali- 
ser un programme complet (de- 
monstration automatique, interet 
dujeu, etc..) axe sur les lettres et/ 
ou les caracteres speciaux (I, :, 
etc.). La manipulation du clavier 
etant la base de ce type dejeu, un 
jeu ou un systeme permettant 
I'apprentissage du clavier devra 
etre inclus dans le programme. 
Comme vous pouvez leconstater, 
le plus dur reste k faire. 
Remarque : Le listing est com- 
mente. afin de permettre aux per- 
sonnes possedant un ordinateur 
autre que I'APPLE de I'adapter fa- 
cilement. 



REGLEMENT 

Article 1 

HEBDOGICIEL organise un con- 
cours du 22 Marsau 2 Mai dote de 
prix recompensant le meilleur lo- 
giciel s'inspirant d'une idee de 
Georges LECLEREet dont le nom 
est "POKER-ALPHABET". 
Article 2 

Ce concours est ouvert a tout au- 
teurde logiciel quelque soitle ma- 
teriel sur lequel il est realise. Len- 
void'un logiciel sur K7ou disquet- 
te accompagne du bon de partici- 
pation "Concours Georges 
LECLERE" decoupe dans I'heb- 
domadaire constitue l'acte de 
candidature. 
Article 3 

La redaction d'HEBDOGICIEL se 
reserve le droit de selectionner 
sur la base de la qualite et de la II- 
delite au theme propose (POKER 
ALPHABET) les logiciels qui se- 
ront commercialises. 
Article 4 

Un jury compose de specialistes 
de la distribution de produits in- 
formatiques et de pedagogues, 
preside par Georges LECLERE 
determinera le meilleur logiciel 



pour chaque ordinateur et, parmi 
ces meilleurs logiciels. un ga- 
gnant toute categorie. 
Article 5 

La cloture du concours seferale 2 
Mai 1984 a minuit, le cachet de la 
posle faisantfoi. 
Article 6 

Les prix alloues seront remis au 
plus tard 1 mois apres I'annonce 
des resultats 
Article 7 

Le present reglement a ete depo- 
se Chez Maitre JAUNATRE. 1 rue 
des Halles 75001 PARIS. 
Article 8 

Le prix principal etant un contrat 
d'edition engageant HEBDOGI- 
CIEL et SHIFT EDITIONS a com- 
mercialiser les logiciels gagnants, 
les laureats s'engagent de leur 
cote a donner la preference a 
SHIFT EDITIONS pour cette com- 
mercialisation, et ce, pour tout 
pays. 
Article 9 

La participation au concours en- 
traine I'acceptatlon par les con- 
currents du presenl reglement. 



BON DE PARTICIPATION 
CONCOURS Georges LECLERE 



Nom: 
Prenom : 
Age : 

Profession : 
Adresso : 

N° Telephone ; 

Nom du materiel utilise : 

Nom propose pour le programme i 

Declare avoir pris connalssanco du reglement du concours 'Georgos 

LECLERE" publie dans HEBDOGICIEL et en accepte le reglement. 

Signature obligatoire : 

(signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetiaue (cassette ou 
disquette) accompagnd d'un modo d'emploi tres detallle. Les pro- 
grammes non retenus ne sont pas rendus 
Indlquez "concours Georges LECLERE" sur I'enveloppe. 



DRIVE CORRECTEUR 
POUR ORIC 



LORIC esl un des engins qui 
s'est le mieux vendu en 
FRANCE, probablement a la 
troisieme place apres TEXAS 
TI99 et APPLE II. Je dis "pro- 
bablement" car lesch iff res de 
vente communiques par les 
differentes societes qui com- 
mercialisent des ordinateurs 
sont tellemenl fantaisistes 
que, si on les ecoutait. il y 
■.iu rait plusieurs millions d'or- 
dinateurs personnels en 
FRANCE ! II doit y avoir, 
d'apres moi, environ 30.000 
ORIC 1 en FRANCE et I'ATMOS 
est bien parti pour avoir au 
moinsautantdesucces.Jene 
connais pas encore bien I'AT- 
MOS mais pour I'ORIC, des 
qu'on commence a exploiter 
toutes les possibilites de la 
machine, on se trouve en face 
de "bug" pas triste du tout, 
notamment au niveau de la 
tabulation et du traitement 
des chaines de caracteres et 
je ne parle pas de la vitesse 
de chargement des program- 
mes sauvegardes sur casset- 
te, un poeme ! 

Mais vous connaissez tous 
ca. vous qui usez reguliere- 




menl le bout de vos doigts sur 
le clavier d'un ORIC 1 et bien- 
tot sur celui d'un ATMOS. 

Aujourd'hui, rejouissez-vous. 
LA solution existe, elle s'ap- 
pelle BD 500 et se presente 
sous la forme d'un lecteur de 
disquette 3 pouces. 

Cette petite merveille, qui va 
vous coiiter 3980 francs est 
importe par JCS et va resou- 
dre tous vos problemes. Ce 
lecteur se compose de deux 
blocs separes : le lecteur et 
son alimentation (voir photo) 
de 12 x 15 x 7 cm, 440 Ko par 
disquette apres formatage 
(220 Ko parface). Le DOS est 
fourni en ROM, tres puissant il 
permet faeces direct et fae- 
ces sequentiet aux fichiers de 
donneeset a un jeu de 27 ins- 
tructions (voir encadre). Voila 
pour la vitesse de charge- 
ment ! 



Le BD 500 ameliore conside- 
rablement les performances 
des ORIC en ajoutant 10 ins- 
tructions supplementaires au 
basic el en balayant du meme 
coup la plupart des bugs cites 
plus haut. Voila pour les 
bugs ! 

Et en plus quelques avanta- 
ges non negligeables : dix 
touches de fonction devien- 
nent programmables. Un jeu 
d'utilitaire est fourni sur dis- 
quette pour formater, copier 
et faire toutes les operations 
normales sur les fichiers mais 
egalement transferer sur dis- 
quette des programmes exis- 
tants sur cassettes, 
Convaincu ? Non ? JCS vous 
tait encore un petit cadeau 



pour vous decider definitive- 
ment ; Un traitement de texte 
et un assembleur en prime ! 
Pas suffisant ? Allez, encore 
un dernier colis, sans supple- 
ment de prix : un logiciel de 
recuperation des fichiers 
alteres, une alimentation 
pour raccorderdeux lecteurs, 
le cable de liaison ordinateur- 
disquette avec son interface 
et la ROM de technologie LSI, 
une disquette de demonstra- 
tion, un manuel en anglais 
et un resume en francais. 
Le tout enveloppe dans un 
superbe carton 100 % Kraft, 
enrubanned'unefaveur rose ! 

MANDRIX 



INSTRUCTIONS m J n n S miRn^o 


3 

GETS 


RUN 


RENAME 




FORMAT 


PUTS 


SAVE 


PROTECT 




MSAVE 


FREE 


WRITES 




OPEN 


CREATE 


MLOAD 


CLOSE 


DO 


' ERASE 


DECLARE 


ENDS 
, RESTORES 


INSTRUCTIONS SUPPI F.MFNTAIRFK nil RAR1P 


ON ERROR 


WINDOW 


TYPE 


ON BREAK 


VTAB 


IF FOUND 


RESUME 


HTAB 


-fichier" THEN 



LE HIT DU BLASE 



LOGICIELS FAIT MAIN ! 

Pourquoi acheter cher des programmes que vous pouvez entrer vous-memes dans votre ordinateur ? Utili- 
sez-les tel quel ou ameliorez-Ies pour en faire VOS Logiciels. En vente dans les FNAC, les boutiques 
HACHETTE, la REGLE a CALCUL, chez les principaux revendeurs ou par correspondance en utilisant le bon 
ci-dessous. 



JEUX et PROGRAMMES 
pov 
ronftuteurtarrdM 
! INSTRUMENTS 




Programmez vous-meme en Tf- 
Basic grace a des instructions 
simples, sansaucun peripherique 
ni module complementaires. Des 
jeux originaux et passionnants 
avec couleurs, graphismes et 
sons : Jeux de rnouvement (Bow- 
ling. Batailledel'espace, Labyrin- 
Ihe. etc.) Jeux de reflexion : Da- 
mes, Pendu. Awari. Tour de Hanoi, 
Architecte. elc.) Jeux de societe 
(421.GoIdie.Cochon,Mastermys- 
ter. Chiffres et mots, etc.) 
Des programmes performants: 
Calcul (Factures, Paye, Bioryth- 
mes, etc.) Assistance (Tierce, Im- 
pols, Suivi de compte en Banque, 
etc.) Et aussi des Astuces pour 
augmenter la puissance du Ian- 
gage Ti-Basic. 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 2 




Le tome 2 est toujours en basic 
simple, sans peripherique ni mo- 
dule complementaire. Plusieurs 
programmes comprennent des 
versions fonctionnant soit en ba- 
sic simple, soit en langage machi- 
ne avec la mini-memoire Les jeux 
y sont encore plus nombreux ; 
Blackgammon. Sous-marin, Trap- 
pe, Roulette, Casse-tete, Puzzle, 
Echecs. Tachistoscope, Kim, Pai- 
res. etc. De la musique a inclure 
dans vos programmes: Big Ben, la 
Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des 
programmes educatifs : Arithme- 
tique, Calcul de puissance, Re- 
gions de France, entrainement a 
la logique informatique. etc 



Le tome 3 est en basicetendu.il 
necessite done le module "Exten- 
ded Basic" qui augmente consi- 
derablement les possiblites de 
votre ordinateur. A des program- 
mes utihtaires comme un traite- 
ment de texte ou une gestion 
complete de plusieurs comptes 
en banque s'ajoutent des jeux ra- 
pides (bataille navale, course de 
voitures.etc), des jeux de societe 
(Theme astral, Drapeaux, Poker. 
Harmonium, Calculette scientifi- 
que, Ardoise magique, etc.), des 
utilitaires pour creer des lutins.fu- 
sionner des caracteres.dessiner 
point par point, faire defiler des 
textes dans tous les sens ou en- 
core fabriquer une mire Texas a 
votre nom I 



JEUX et PROGRAMMES 
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Du jeu de reflexion classique 
(Tours de Hanoi. Pendu. Color- 
mind, Awele, etc.) aux utilitaires 
performants (Generateur de Ca- 
racteres, Tri, Calendrier, Histo- 
gramme, etc.) en passant par les 
jeux de reflexes (Terroric, La Plu- 
me et le Poussin, Labyrinthe, etc.) 
les jeux d attention (Dames, Ro- 
tations, Enigmes, Coff re-fort, La 
Reine, etc.) ou de hasard (Poker, 
Quinze-Vainc. etc.). et sans ou- 
blier les mathematlques (Frac- 
tions, Nombres Premiers, Traceur 
de Courbes, Multiprecision, etc.). 
Jeux et Programmes pour ORIC 1 
offre un large eventail de pro- 
grammes aux couleurs, graphis- 
me et sons tres soignes. 
une mine d'or pour votre ORIC 1. 
Existe aussi pour ORIC ATMOS. 



possedezunTi99/4Aet un modu- 
le "Minimemoire" ? Vous pouvez 
des a present disposer de tout e la 
puissance de votre ordinateur 
Acces a toutes les possibilites 
graphiques. ycompris la haute re- 
solution. Acces direct a la memoi* 
re cenlrale, Grande vitesse d'exe- 
cution (deux minutes au lieu de 
deux heurestrente pour un meme 
programme). 

Ce manuel, comprenant un grand 
nombre de programmes com- 
mentes vous apprend progressi- 
vement, sans connaissances 
techniques prealables. a malt riser 
un langage tres puissant reserve 
jusqu'a present aux seuls specia- 
iistes 



INITIATION / 
LANGAGE ASSEMBLEUR du 
TEXAS INSTRUMENTS 





Explorez les etonnantes possibili- 
tes de votre CANON X-07 avec les 
quelques 40 programmes reunis 
dans cet ouvrage. Des program- 
mes performants qui fonction- 
nent sur le X-07 de base (8 KO) : 
calculs scientifiques : operations 
sur les matrices, conversion de 
coordonnees, racines de polyno- 
mes, integration, interpolation, 
etc Des utilitaires : gestion de 
compte en banque, htstogram- 
me, impot, hard copy, trace do 
courbes, biorythmes, etc. Des 
jeux : loto, poker, ardoise magi- 
que, un peu d'EAO. un super jeu 
d'aventures : leTresorduGallon 
et 3 "gros" programmes qui n6- 
cessitent une carte d'extension 
4 K . Astral, Tierce ot Surfaces et 
Volumes. 



Bonjour, Bonjour. Je suppose 
que vous avez joue tous les 
soirs avec des logiciels pas 
possibles et que votre mine 
est aussi lamentable que la 
mienne ; continuez. vous etes 
sur la bonne voie ! Que les 
fideles lecteurs qui se ron- 
gent les ongles jusqu'au cou- 
de en attendant mon Hit deli- 
rant sur APPLE se cachent les 
yeux, cette semaine e'est de 
COMMODORE 64 que je vais 
vous causer dans le poste. II 
faut dire que cette machine 
rencontre un vif succes meri- 
te. je dirais meme "desire", 
les possesseurs de C 64 com- 
prendrons ! Les ventes de 
logiciels pour cette machine 
se font a 70 % sur cartouche 
ROM (pardon, on dit MEM en 
Francais), il faut dire que 
la disponibilite du lecteur de 
cassette... je n'insisterai pas. 
les possesseurs de COMMO- 
DORE 64 comprendrons en- 
core unefois 1 Au fait, il pa rait 
qu'il existe un adaptateur 
permettant le branchement 
d'un lecteur de K7 ordinaire 
sur un C 64, vous saviez ca ? 
Bref, de toutes facons. les 
modules de ROM (n'en de- 
plaisent aux pirates) sont net- 
tement plus agreables a met- 
tre en ceuvre et mettent a 
I'abri beaucoup de fausses 
manoeuvres. 

CHOPLIFTER, qui ne connait 
pas ? je rappelie aux ignares 
le but du jeu :je doispiloterun 
helicoptere au-dessus des li- 
gnes ennemies pour aller 
chercher 64 personnalites 
prisent en otages et gardees 
par plusieurs divisions de 
tanks qui mettent le feu aux 
cellules, des queje commen- 
ce a les sauver. Mon helicop- 
tere ne contient qu'un certain 
nombre de passagers et 
apres une premiere mission 
relativement facile a termi- 
ner, I'aviation et les satellites 
attaquent ! 

LODE RUNNER version C 64 : 
meme version que sur APPLE, 
base sur le principe du Don- 
key Kong. Je viens de decou- 
vrir une caverne aux tresors 
bien protegee par une sale 
bande de brigands et je dois 
faire preuve d'une intelligen- 
ce rare (qui m'est reconnue, 
n'est-ce pas ?), pour recupe- 
rer tous les tresors repartis 
entre des echelles, des cor- 
des. et des crevasses. Ne 
manquant pas d'astuces. je 
me suis rendu compte qu'en 
faisant un trou dans le sol 
avec ma pelle, je pouvais re- 
tarder leur avance. Ce jeu est 
lui aussi ouvert, e'est-a-dire 
qu'il laisse la possibility de 
creer soi-meme un parcours. 




Et ensuite. vint SAVE NEW 
YORK, et ce fut la fin du mon- 
de... Enfin pas tout de suite 
puisque ce jeu permet de re- 
culer cette echeance. Des 
corbeaux monstrueux venus 
d'ailleurs tentent d'envahir 
New-York ; mais grace a mon 
vaisseau sur-equipe. et sur- 
tout grace a mon laser, je 
peux avec un peu d'entraine- 
ment les exterminer. mais en 
faisant attention a mon car- 
burant et aux buildings. Et 
j'en oublie ; ces monstres 
pondent des oeufs qui, une 
fois au sol. mangent avec un 
appetit sans merci, les im- 
meubles par leur fondation ; 
seule solution, atterir et les 
tuer a bout portant dans les 
couloirs du metro ou ces sa- 
les betes sevissent. 
SEA FOX et SERPENTINE de- 
fendent ex-aequo la quatrie- 
me place. SEA FOX rappelie 
vingt mille lieux sous les 
mers. Je suis dans un sous- 
marin solitaire qui doit tenter 
de detruire un convoi ennemi 
de bateaux en evitant soi- 
gneusement les mines et les 
torpilles adverses. 
SERPENTINE qui se joue un 
peu comme Pacman ou une 
petite chenille doit s'alimen- 
ter avec des salades, eviter 
ses mechants cousins les ser- 
pents et fonder une famine. 
Un point remarquable pour la 
programmation de ce jeu du 
(il faut le dire de temps en 
temps) a Marc SENOUR avec 
un effet de rotation de la che- 
nille surelle-memequivautle 
detour (et le contour). 
A la semaine prochaine les 
amis. 

CLAUDIUS 



■Xpopuare de Lyon et sa region 
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Nous avons reel/ ca tel quel, 
sans commentaire ! 

Bravo au pere de _GNAFU Je voudrais recompenser per 
sonnellement Frederic MELI 
NE car son programme vau 
bien un logiciel de commer 
ce. Ci-joint un modeste cho 
que a son ordre. Veuillez le lui 
transmettre. Merci et encore 
Bravo ! 



(HEBDOGICIEL) : Frederic 
MELINE qui nous fait passer 
des heures formidables a mes 
2fils et a moi. GNAFUaconnu 
les dellces du 5* me jardin 
(score 360 - Qui dit mieux ?). 
Une joueuse passionnee de 
42 ans. 
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SOLUTION DE 
L'HIPPOREBUS: 



l< 



FDR 1-1 



7 



20 READ X 
30 PRINT CHR* (X) i 
40 NEXT I 
SO ENU 

60 DATA 80,69,82,73 
SI, 67, 76 




LA RENTREE 
SCOLAIRE 
D'HEBDO- 
GICIEL 




multiples (OCM) porlant sur 
un domame precis jusqu'au 
jeu de rdle plus ludique, qui 
offre a I'entant la possibility 
d'affronter. d'une maniere fic- 
tive et symbohque. un univers 
code 

II suffil de consulter les cata- 
logues de logiciels des diffe- 
rentes societes d'edition 
pourseconvaincrequel'ordi- 
nateur en tant qu'outil d'en- 
seignement. se taille, petit a 
petit, une place dechoix dans 
l'6ducalion des enfants. 
Une question se pose done 
naturellement : qu'en est-il 
dans les ecoles ? Une petite 
enquete et quelques prises 
de contact nous ont permis 
de constater que I'informati- 
que existe dans les ecoles. de 
la classe maternelle a la ter- 
minale. sous des lormes tres 
diverses. 

Une politique generale d'im- 
plantation de I'informatique 
dans les ecoles a d'ailieurs 
ete definie clairement par les 
organismes concernes. Cette 




politique, laissant une large 
liberie d'action et d'imagina- 
tion aux enseignants. favori- 
se la multiplication d'experi- 
mentations Ires differentes 
les unes des autres. 
La presence d'activites infor- 
matiques dans les ecoles. 
tres sporadique il faut bien le 
reconnaitre. denote un inte- 



ret certain des enseignants tous. en general 
pour le nouveau support de Elleseraaussi lereflet d'expe- 
connaissances qu'est Tor- rimentations realisees par 
dinateur. des enseignants. auxquelles 

Fort de cette constatation, participera HEBDOGIClEL 
HEBDOGICIEL ouvre ses co- 
lonnes aux enseignants sous 
la forme d'une rubrique edu- 
cative. Fidele au principe de 
base d'Hebdogiciel (ce sont 
nos lecteurs qui font le jour- 
nal), cette rubrique. destinee 
aux enseignants. pedago- 
gues et a toute personne con- 
cernee par les problemes de 
I'ordinateur au service de 
I'enseignement. sera entiere- 
ment constitute d'articles ou 
de programmes ecrits par des 
enseignants ou pedagogues, 
et remuneres selon le regle- 
ment defini sur le Bon de 
Participation. Cette page 
educative, qui sera inauguree 
dans lenumero 28 d'Hebdogi- 
ciel, (Parution le 20 Avril 
1984), se veut un carnet de 
programmes, d'idees et de 
contacts a I'usage des ensei- 
gnants. en particulier, et a 






(graces la comprehension de 
certains constructeurs 
COMMODORE, ORlC. et Hen- 
tot d'autres ) en tourmssant 
aux plus defavonses le mate- 
riel qui leur tail defaut 
Pour tout renseignemenlcon- 
cernant cepretd'ordmateurs, 
vous pouvez nous contacter 
par courrier a I'adresse du 
journal Vous etes (cordiaie- 
ment) invites a nous faire pa r- 
venir vos idees, vos program- 
mes, vos comptes rendus 
d'experimentation. les reali- 
sations de vos eleves ou en- 
fants touchant de pres ou de 
(pas trop Ijlom a I'ordinateur. 
vos petites annonces. vos 
questions etc. . 
Clubs photos, associations et 
clubs d'informatique. vous 
etes aussi concernes . faites 
vous connaitre, envoyez nous 
des photos pour egayer cet- 
te rubrique qui vous est 
reservee ! 

P GLAJEAN 



HEXCAR 



Ce programme se revele tres pratique pour redefinir les 
caracteres. Vous allez pouvoir en effet dessiner n'importe 
quoi dans la grille et le programme se chargera de vous 
restituer le code hexadecimal du caractere. De plus si 
vous voulez utiliser les sprites dans le mode MAGNIFY 3 
ou4,surunegrillede16x16vousinscrivezlaformedulutin 
et quelques instants plus tard (peut etre de longs ins- 
tants ?) vous obtenezle code de 64 lettres.Je donneraiul- 
terieurement plus de precisions. 

Maintenantsienrealisantun programme quelconque,vo- 
tre curiosite est chatouillee par un code hexa-etrange et 
bizaroide, pas de panique ni de hauts cris, vous aliez pou- 
voir rejouirvosyeux.Apresavoirfaitle choix 1 vous decou- 
vrirez les dessous de ce code provocateur. Entrez simple- 
ment le code hexadecimal (les 16 lettres imperativement 
!) et quelques instants plus tard le caractere se dessine. 
Vous allez voir que vous pouvez modifier le code a votre 
guise et voir d'autres caracteres se succeder sur votre 
ecran. 



TI-99/4A 



Philippe DOUSSIN 



Mode d'emploi : 

Faites RUN. Vous avez a faire un choix entre deux options. Lorsque le 
bras du petit homme est devant celle que vous desirez appuyez (mais 
sans precipitation vous avez le temps) sur le bouton de la manette 1. 
Si vous avez fait le bon choix 1 : 

- Le programme demande tout de suite le code hexadecimal du carac- 
tere inconnu : entrez les 16 lettres ou chiffres imperativement meme si 
des zeros terminent le code. Faites ensuite ENTER, apparait alors en 
bas, le caractere ainsi que la liste des composants de la base 16. juste 
dessous votre code avecun rectangle sur la premiere lettre. Gardez vo- 
tre manette dans la main, vous voyez qu'en manceuvrant le manche, 
vous deplacez a volonte le rectangle sur tous les caracteres de votre 
code. Cela va permettre de corriger Tun deux. Essayez ! Pour ce faire, 
(apres avoir bien positionneiecurseur) appuyez sur la touchede la ma- 
nette : un A apparait sous la lettre choisie et le curseur est descendu 
sur la liste du dessous. Choisissezy la lettre ou le chiffre desire et appu- 
yez une nouvelle foissur la touche de la manette ; le A disparait la lettre 
est change et le dessin du caractere tout en bas s'est modifie. Vous 
pouvez repeter ces operations autant de fois que vous le desirez. At- 
tention, maintenant vous voulez sortirdece mode ouafficherun autre 
code. Suivez bien les instructions suivantes : Le curseur initialement 
doit se trouver sur votre code. Ensuite appuyez et restez appuye sur la 
touche de votre manette. Le curseur se trouve sur la ligne du dessous : 
deplacez le vers r"@ Lorsque vous entendezun beep vous voyez appa- 
raitre deux choix, un pour sortirdu mode et revenir tout au debut (s), un 
pour entrerun autre code (R),pressez!a touche que vous avezfait votre 
choix. 
Vous etes revenu au debut et vous faites le choix 2 ; 




Le premier HEBDOGICIEL 
SOFTWARE pour APPLE II et 
lie est livre avec un emballa- 
ge de disquette reutilisable 
et un livret d'utilisation, il 
comprend 12 logiciels : 

BASIC et D.O.S. FRANCAIS 
pour programmer en fran- 
cais sur APPLE avec ou sans 
extension memoire. C'est un 
APPLESOFTen francais dont 
les mots sont redefinissa- 
bles ce qui laisse la possibili- 
ty de personnaliser les ins- 
tructions et de creer votre 
propre langage basic en 
francais. Pour apprendre le 
basic ou pour I'enseigner 
(langage machine). 

PROGRAM MATION STRUC- 
TUREE pour une program- 
mation simplifiee et clarifiee. 
Acces aux instructions 



WHILE WEND. REPEAT, UN- 
TIL, IF THEN ELSE a I'aidede 
i'ampersand (&) (langage 
machine). 

MINI LOGO permet d'acce- 
der au graphisme tortue et 
aux procedures simples utili- 
sees par le langage LOGO. 
Les primitives sont adapta- 
bles. Ideal pourinitiervos en- 
fants a LOGO. 

FONCTIONS SUPPLEMEN- 
TAIRES DE TRAITEMENT DE 
CHAINE, puissantes fonc- 
tions simpiifiant la program- 
mation sur les chainesde ca- 
racteres. Plus de ASC 
(LEFTS{MIDS(AS,1.3))) iilisi- 
ble, mais des fonctions Clai- 
res comme GLR. recherche 
un groupe de lettres ou SCH. 
extraction de chaine avec 
critere d'arret alphanumeri- 



que ou WCH, modification de 
chame par remplacement 
(langage machine). 

SAISIE FORMATEE DE DON- 
NEES, indispensable pour 
une bonne gestion d'ecran 
lors d'une saisie. Permet de 
stipuler le nombre et le type 
de caracteres ainsi que les 
differents caracteres de 
controle. (langage machi- 
ne). 

EDITEUR DE PROGRAM- 
MES pour resoudre tous les 
problemes de correction de 
lignes basic : insertion, com- 
pactage, suppression, re- 
cherche de mots. etc. (lan- 
gage machine). 

GESTION DE CARNET 
D'ADRESSES. une gestion 
de fichier modulaire simple 



et efficace avec presenta- 
tion des donnees sous forme 
de carte de visite. 

BISCRU.unjeudereflexeset 
d'attention ou il faut eviterde 
laisser tomber les tartes du 
tapis roulant. Un graphisme 
elabore digne des jeux de 
cafe ! 

PARACHUTISTE un jeu d'ar- 
cade francais. Les paras 
comptent sur vous pour ne 
pas tomber a I'eau ! 

SOLITAIRE, un jeu classique 
au graphisme soigne. 

Et ENQUETE, mi-cluedo mi- 
mastermind, decouvrez I'as- 
sassin, I'arme, le mobile et le 
lieu du crime parmi une foule 
de suspect. 



}, Code Posioi 



PRIXUNITAIRE 590 F 

• + 20FG 
Atranget 

DATE signature: 



Quelques explications sur les modes MAGNIFY Le mode MAGNIFY 1 
ou 2 utilise des caracteres definis par une matrice de 8 x 8 tandis que le 
mode MAGNIFY3ou4 utilise des caracteres (uniquement pour les lu- 
tins) definis par une matrice de16x 16. Ou en etions-nous? Ah oui! Vous 
avez fait le choix 2, maintenant le programme demande de choisir le 
modedanslequel vous voulez travailler. Ilafficherarespectivementune 
grille de8x8pourune grille de16x16pourleschoix 1 ou 2. Pour la suite, 
les procedures sont identiques pour les deux modes. Done a cote de la 
grille s'inscrivent trois signes qui symbolisent des ordres ou des routi- 
nes, ainsi qu'un curseur dans lecarresuperieur gauche que vous pou- 
vez deplacer. Lorsque vous appuyez sur la touche de votre manette le 
carre dans iequel il se trouve, s'il etait noir devient blanc et s'il etait 
blanc devient noir. 

C'est ainsi que vous redefinissezle caractere. Vbyons maintenant I'utili- 
te des signes : le >restitue le coe hexadecimal du dessin le (ft 1 efface les 
carres blancs de la grille, 
le S permet de revenir au debut du programme. 
Pour utiliser ces routines placez le curseur sur les signes symboliques 
et pressez la touche de commande. 

Voila.je crois avoir tout devoile, il ne vous reste plusqu'a coder et deco- 
der. 

RS. : Attention, la touche ALPHA LOCK doit etre en position basse lors- 
que vous entrez le code hexadecimal. Sur le listing lesU sont des espa- 
ces qu'il faut respecter. 



EDITO 

Suite de la page 7 





Lasemaine prochaine. une gran - 
de nouveaute, la page "EDUCA- 
TION" de I'Hebdo. COMMODO- 
RE et ORIC nous ont deja prete 
du materiel pour que les ensei- 
gnants puissent decouvrir et fai- 
re decouvrir i'informatique a 
leurs ouailles sans attendre le 
bon vouloir des autorites distri- 
butrices de logiciels et de mate- 
riels. Messieurs les construc- 
teurs. nous attendonsvos mate- 
rials en pret. Messieurs les en- 
seignants nous attendons vos 
articles et vos programmes. 

Gerard CECCALDI 



»2 TO 10 i; C«LL CDLOR i I , 16, 1 ) : : NEXT I 
"0", 12) V 1 93C 1 B 1 BOB 1 S3C3A9C 1 B 1 BOBOBOS09 1 



"CHOIX 1" II GOSUB 900 :: 
"CHOIX 2" :i GOSUB <JOO i: 
■ BOO THEN CflLt. SOUND (70, 



IF T= 



100 CALL CLEAR :: CALL SCREEN! 21: 

si CALL MAGNIFY (3) 

200 CALL CHARU20,RPT»<"0", 19) VI "[.RPT* ( 

S" ,124, RPT» I "O" , 32) t, " 1 S3C 1 8984B38 1 C 1 A 1 B 

300 CALL CHARU2Q, -00003F202020202020202020203FOOOOOOOOFC0404040404040404040SFCO 

000") 

400 CALL CLEAR : : CALL DELSPRI TE (ALL) : : DISPLAY AT ( 1 , 1 > : '■•».•«»•••■••»••»»•••»«. 

••••••!"• CREATION DE CARACTERES •" I "-••••-•••••••••-••••••••••••" 

SOO DISPLAY ATII2.I):" PAR DONNEE DU CODE HEXA. >1 "i »"i " PAR DESSIN 

>2" 

600 CALL SPRITE(»3, 124, 16,96,240)11 CHOIX-0 

700 CALL PATTERN(«3, 124): i DISPLAY AT (24 , 1 ) BEEP; 

THEN 3SOO 
BOO CALL PATTERN(»3, 120) I! DISPLAY AT(24,1)BEEP 

THEN 1100 ELBE 700 
900 T-0 il FOR 1-1 TO 30 il CALL KEYU.A.Blu II 
II T-l ■■ RETURN 
1000 NEXT I il RETURN 

I1O0 CALL CHAR(40, "FFG101 B181H1B1FF" , 4 1 , "FFFFFFFFFFFFFFFF 
■•fcRPT«f "0",4B),43,"FF9i9191B9B989FF") 

1200 FOR 1-12 TO 14 II CALL HCHAR( 1 , 1 , 32, 32) I I NEXT I n DISPLAY AT<12, 
NIFY I OU 2 >I"i" MAGNIFY 3 OU 4 >2" 

130O T-O 

1400 CALL PATTERN(»3, 124) ii DISPLAY AT (24. 1 ) DEEPi ■'CHOI X 1" i: GOSUB 900 II IF T* 
1 THEN CHOIX-! il GOTO 1600 

1300 CALL PATTERN<«3, 120):i DISPLAY AT (24, I J BEEPi "CHOI X 2" ii GOSUB 900 II IF T« 
I THEN CHOIX-2 ELSE 400 

16O0 CALL CLEAR II CALL DELSPRI TE (ALL ) 

WOO IF CHOIX-l THEN BG-10 II L-8 ELSE BD-1B II L-16 

18O0 FOR 1-3 TO BG II CALL HCHAR ( I ,3, 40.L) I 1 NEXT I ii CALL HCHAR 1 10, 3*L, B3) I I D 
ISPLAY ATllO.S'Di "RETOUR" 

1900 CALL HCHAR<e,3*L, 62) I i CALL HCHAR (7, 3*L,64 ) i i DISPLAY AT (Q, 3»LI I "CODE" It D 
ISPLAY AT(9,3*L) i"EFFACE" 

200O CALL SPRITE (#1. 104,7, 17,33)1 1 CALL POSI I ION <« I . X. Y) 

21O0 CALL KEY(I,A,B)u IF B-I THEN 230O ELSE CALL J0Y9T ( 1 , A, B) I I CALL POQITIONIt 
1,X,Y)II D-X-B»2 II E-Y*A#2 Ii CALL QCHAR ( (D*7) /B. (E4-7) /B, T) I I IF T-32 THEN 2100 
2200 CALL LOCAT£{ftl,D,£>i I GOTO 2100 

2300 CALL 80UND<"fO, 3000, 0)11 CALL OCHAR ( < X*7) /B, i Y+7) /Q, T) I I IF T-64 THEN 1B00 E 
L9E IF T-62 THEN 2500 ELBE IF T-40 THEN LI-41 ELBE LI-40 II IF T-B3 THEN 400 
2400 CALL HCHARt (X*7)/B, (Y>7)/G,LI1 il OOTO 2100 
2300 FI«-"- it IF O10IX-1 THEN 2BO0 ELSE Y-19 II VX-3 ii VY-B II OOSUB 2900 II V 



FFC3A37979A3C3FF 
MAG 




,. It,. 10,200) 
DISPLAY ATI22.1) 



CALL CHAR(96, 



R2-R2* 



X-13 ii VY-16 j: GOSUB 2900 i: DISPl 
2600 CALL CHAR<96.FI«): I CALL SPRITI 
2700 GOTO 2000 

2800 V-10 il VX-3 II VY-8 :i GOSUB : 
F!*)!i CALL HCHARI18, 16,96): ! GOTO ; 
2900 FOR J-3 TO V i: Ml*-"" ii M2*-' 
CALL GCMAR{J, 1*4,62): : Ml»=Mt«!.CHR» i 

3100 :: NEXT J 
30OO RETURN 

3100 Rl-O ti R2-0 it FOR N-l TO 4 i: Rl -R1 *VM, <SEG» (Ml », N, 1 1 
VAL(SEG«IM2*,N, 1 ) >«(2"(4-N) ) ! I NEXTN I! PL-R1 it GOSUB 3200 ii PL-R: 
3200 IF PL>9 THEN DS*-CHR» <PL*33) ELSE DS»-STR«(PL) 
3300 FI«=FK«.DS* : : RETURN 
3400 CALL LOCATEIDl, 17,33) 
3300 CALL CLEAR I! CALL DELSPRI TE (ALL) 
3600 DISPLAY AT ( I , I ) I "••••»•••••••••••••••••■•••••' 

•"I"" CREATION PAR CODE •" 
3700 ON WARNING NEXT 
3B00 DISPLAY AT (3, 1 ) I »••••••••••••••■•■••••••••• ••" II D1SPLA' 

NEZ LE CODE HEXADECIMAL" 

3900 ACCEPT AT < 14, 6) VALIDATE ( "01 234367B7rtBCDEF" ) SUE < 1 61 iVAR« 

4000 CALL CHAR(96,VAR«) I : CALL HCHAR(23, 16, 96) 

4100 DISPLAY ATI16.6) i"OI27.4367H9AiriCDEF 9" II CALL SPRI TE (• I . 1 28. 1 6, I ! .33) 

4200 CALL FOSITION(»t.X,YJii CALL KEY I 1 . A, B> i I IF B-I THEN 4300 ELSE CALL J0Y3K 

I, A, 8)11 E-Y*A»2 il IF E<52 OR E>174 THEN 4200 ELSE CALL L0CATE(»1, 

200 



BASIC 
ET Et4DU 



)HEEPi "DON 



GOTO • 



'N-INTH 



o>s: 



I I CALL 
AND O- 17 



CHAR(13.Y/8*1,941 ii C 
(1, A, 8)i I IF B-l THEN 
THEN CALL LOCATE (•!. 



IL LOCATE (»1, 117,33) 
4300 ELSE CALL J0Y3T ( 
,0)i ! ROTO 440O ELSE 



4300 CALL GCHARdt, Y/Q»1,T) I I CALL HCHAR ( 14, F/B* 
2»-SEG«(VAR»,PNM, 16-PN) ii VAR«-A1 «VCHR» ( T) t,A2» 
4600 CALL CHAR(96,VAR«I I I CALL HCHAR (23. 16, 96) i i 
4700 IF 0<S2 THEN 440O ELSE CALL KEYU.A.Blu IF 
0,3000.O)n DISPLAY AT ( 18, 1 1 i"S SORTIE DU MODE": 
4800 CALL LOCATE(*t. 133, 121 

4900 CALL PO:iIT10N(«l , X.Y) it CALL KEYU.A.Bll 
1. A, Bin ir-X-(B»2>it IF E-132 OR EM42 THEN ' 
4900 

9OO0 CALL Dciiiir.'(iNi(x/n-2) . lNT(V/Bt2),T) 1 1 if 



THEN 3300 ELSE 400 



MOTS EN VRAC 



Voici un programme ecrit dans un langage structure et ra- 
pide, qui va enfin permettre aux amateurs du "MOT MYS- 
TERIEUX" ou "MOTS MELES" de trouver le mot secret en 
quelques minutes. Plus besoin des'abimerlesyeuxoude 
s'enerver sur une feuitle de papier ! II vous suffira juste de 
rentrer les donnees et bien sur, un peu de patience. Avant 
de donner plus d'explications, je pense qu'il est necessai- 
re de donner la regie de ce jeu. 

Dans une grille, des lettres sont placees dans un desordre 
apparent. Un grand nombre de mots (donnes avec la gril- 
le) sont dissimules dans tous les sens (horizontalement, 
verticalement,endiagonale,degaucheadroiteetdedroi- 
te a gauche, de bas en haut et de haut en bas). 
Parfois. une meme lettre fait partie de plusieurs mots. II 
Jaut decouvrir ces mots et des que Ton en trouve un, en- 
cercler dans la grille les lettres qui composent le mot et le 
barrer dans la liste alphabetique donnee. Une fois que 
tous les mots de la liste ont ete trouves, les lettres qui n'ont 
passervi forment le "mot secret" dont une definition nous 
est generalement donnee. 

Le programme ci-dessouspermetderentrerla dimension 
du tableau. Ensuite il suffit de rentrer celui-ci et les mots a 
rechercher. Pour une raison de presentation, I'operateur 
ne peut rechercher que 10 mots a la fois au maximum. Ce- 
pendant, si Ton prefere rentrer tous les mots a la fois pour 
une raison de commodite, il suffit de supprimer la condi- 
tion (NEK10) en ligne171.Le programme afficheau fur eta 
mesure les mots qu'il trouve, les coordonnees de la case 
de debut du mot et sa direction dans la grille. II presente 
ensuite leresultat sous forme d'un tableau. On peut ensui- 
te chercher d'autre mots en conservant ou en eliminant 
les mots deja trouves ou recommencer a partir d'un nou- 
veau tableau. 

Ce programme, ecrit dans un PASCAL standard peut 
s'adapter a n'importe quel ordinateur possedant ce lan- 
gage. II utilise les possibilitesdu PASCAL comme la notion 
de type, d'ensemble, et deux procedures internes. 
Pourmieux comprendre son fonctionnement, une execu- 
tion du programme a ete faite sur imprimante. 

Jean-Marc DUHEN 
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nco 


26 


LETTRE iflflTeoOLl 


?;c? 


27 


S iTABCRRl 


racs 


28 


CCRNIER.P.NB.UHNTEGER1 


?;c3 


29 




?:cs 


30 


LOWS INOrTBREl 


TX» 


31 


COHT1.C0KT2 iCWWi 


TSC6 


32 


C0HT3 iCHflRI 


7;;s 


33 


BOOL iBCOLERNI 


rsa 


34 


DIR i(»RBVa..9]0f INTEGERl 


race 


39 


L0N8T ifiRRPV[[..10JOF NOMBREt 


73C8 


36 




7;:s 


37 


• RECHERCHE DU TOT CHOISI •) 


7X9 


IB 


(* DE DEBUT EN U.K) *) 


73C8 


39 


• DE DIRECTION (H.U) •) 


73C3 


48 


C- SI LE HOT EST TR0UVE ON *> 


7IC3 


41 


* POSITIONNE Lfi UfiRIRBLE ») 


73C6 


42 


C* BOOL fi ' URBI *) 


73C8 


43 


(♦ •) 


Txe 


4< 


»ROCEDURE RECHERCHE CH.U. J.K1 INTEGERIrWTDl WTRICEISrTRSCBRl 


BC8 




LONGlNGtlBREIURR BOOL ' BOOLERN ) 1 


73C8 


46 UflR I.TEST1,TE3T2IIHTEG£RI 


79C6 


47 BEGIN 


WE3 


48 


TESTH-J*L0HG*H T TEST2l"K*L0MO*UI 


76*1 


49 


IF (TESTD-8) PHD (TESTK-N*!) AND (TEST2>-0) AND (TEST2< 


7*90 


98 


THEN 


Ttta 




BESIN 


KfQ 


52 


Ii-li 


KM 


S3 


WHILE 90a RND (K«L0H3) DO 


7603 


Z< 


IF H0TDCJ.K3-StHe.n 


77;=! 


95 


THEN 


7763 


56 


BESIN 


7763 


37 


Jl-J*HI 


77K 


58 


Ki-KHII 


77&5 


39 


11-1*1 


77C4 


68 


END 


net 


61 


ELSE BOOL l" FOLSE 1 


7706 


62 


END 


mt 


63 


ELSE BOOL i-FBLSEl 


77c; 


64 


SWI 


77F2 


63 




77F2 


66 


> LE WT ETRNT TROUUE *) 


77F2 


67 


* LE3 CRSES CONTENOHT LES •) 


77F2 


H 


• LETRES DE CE HOT DOIUENT*) 


77F2 


69 


- ETRE RETENUES. -) 


77F2 


78 


• *) 


77T2 


71 


'POCEDURE KOTROWEfH.U.J.KlINTEGERPfflP LETTREi rOTBOOLILONGlNOf 



t URR II INTEGER) 

J BEOIN 

I URITEC'Mot I ')! 

J FOR II-l TO LONG DO 

i URITEfStN8,I])l 

' FOR Ii-LDNO TO N*l DO 



7=3* 


78 WITEC ')! 






B4CE 


213 C« •> 


7EC0 


79 URITELNCOtbut t '.].'. '.Kit 






B4CE 


216 HRITELNI 


?lrZ 


88 URITEC01r«ction t')i 






9401 


217 HRITELNCTaeet *ur OR POur COntirx«r. *)l 


T9K 


81 IF LCNC-1 THEN 






84FC 


218 REBOLNl 


791E 


92 WITEC nuCUNE ')! 






94FF 


219 URITELNC '118. •«*«*«*«««« -)1 


7931 


93 CflSE H OF 






832D 


228 HRITELNC '118.' RESU.TOTS ')l 


7937 


84 1 l HRITEC* SUO *)t 






8559 


221 URITELNC '! 18. '•«-*«••««••• ->1 


7934 


95 -1 i HRITEC N0RO ') 






9599 


222 URITELNlURITELNl 


796F 


86 END) 






858F 


223 URITEC •■>} 


net 


B7 CflSE U OF 






839F 


224 FOR Ji-1 TO N DO 


7973 


86 1 t URITECEST -)l 






93S0 


223 IF J>*18 THEN URITE<J DIU 10) 


7991 


99 -I T URITECDUEST -J 






95E7 


226 aSE URITEC ')i 


790C 


96 EN0I 






95FB 


227 URITELNI 


~r-z 


91 URITELNC. ')1 






83FE 


229 URITEC ')! 


7984 


92 FOR H"l TO LONG 00 






868E 


229 FOR Ji-1 TO N CO 


79DE 


93 BEBIH 






862C 


236 URITECJ nCO 10)1 


79E1 


94 LETTRE[J.K]l-TRUEl 






9643 


231 URITELNI 


7-^24 


93 Ji-J*H1 






8646 


232 URITEC ')l 


7R3E 


96 KI-K*V 






8654 


233 FOR Jl-1 TO N*l DO 


7R<; 


97 END 






8673 


234 URITE <'*•*)! 


7=;s 


99 EN01 






8687 


233 URITELNI 


7R67 


99 BEQIH 






asefl 


236 URITELNC •')! 


7a?e 


188 REPEflT 






869C 


237 FOR Jl-t TO N DO 


737S 


181 <• -) 






esn 


239 BEGIN 


7078 


182 £• PRESENTHTION -) 






9680 


239 URITE(JI2. ' • ')! 


ran 


183 <* .) 






BSD? 


248 FOR Ki-1 TO H 00 


7078 


184 URITE(CHR(22))I 






66F3 


241 IF LETTRE: J. Kl -TRUE THEN 


7375 


183 URITELNC '1 15, '•*•»•**.••.....') 1 






973C 


242 URITE (HOTTXJ.K].* ') 


7=07 


186 URITELNC 'U5. '• HOTS EN URflC •')■ 






9779 


243 ELSE URITEC- ')! 


m* 








9780 


244 URITELNI 


?Eei 


188 URITELN1WRITELN1 






9798 


243 ENDl 




109 URITELNC-C* Protrom* r*&h*rcHf don* un tabltau' 






9794 


246 URITELNlURITELNl 


733C 


116 yRITELNCo (ieux diMn»ion*. un «n»«nbl* d« ')l 






9790 


247 URITELNCVoulei VOU* donner d"outre not* '<0^«')l 


7B6C 


111 URITELNCnots.ClB not* sinuUontntnt su noxinunl' 






97CE 


248 WRITELNC<En con*ervont le» not* d«Jo trouve*. )*)l 


TBfil 


112 l&ITELNC La dintmion. 1* tableau. Its noil') 






8882 


249 RERCLNI 


75;; 


113 URITELNC*ont rtntrt* Mr l"ut tli*at«ur au 6«but 






8805 


258 REPERT 


7C8B 


114 URITELNCdu ofoirann*. ')l 






8883 


231 REBOtCONTl) 


7C23 


113 UR1TELN1URITELN1 






880E 


232 UNTIL CONTl IN CO'. 'N'] 


7C13 


116 URITECEntr«r la din#n»ion i ')! 






8827 


233 UNTIL COKTl-'N'l 


?Cf, 


117 REPEBT 






884D 


234 1«1TE<CHR(22))I 


7CiC 


119 REfiDLNlRERD<N)l 






8934 


233 URITELNCUouIii vou* reconnencer av*c')l 


7c:s 


119 IF CH<-8) OR <H>28) THEN 






887E 


256 URITELNCle nene tableau 7 <0^) i')l 


7C7F 


128 URITECErrtur.rtwxwWncti I -)l 






9805 


257 REBOLNl 


7C5E 


121 UNTIL (N>B> RND (N<21)l 






B8fl8 


238 REPEBT 


7CC* 


122 URITE(CHRt22))l 






eeos 


259 RERD<CONT2) 


7CC8 


123 URITELNCEnt rtx It tabltau oar lHn» d» '.N>l 






8891 


268 UNTIL CONT2 IN [TJ'.-N') 


?C3i 


124 URlTELNCcaracttr**')! 






38Cfi 


261 UNTIL CONT2-'N'l 


7D19 


125 URITELNltRITELNI 






88F8 


262 URITELNI 


701F 
7D29 


126 Ji-li 

127 WHILE J<-H DO 






88F3 


263 URlTELNCUoulei uou* retorwencer o>^c un *>l 






8921 


264 URITELNCnouveau tableau ? (O^N) 1 ')i 


7D3D 


128 BESIN 






8946 


265 REBOLNl 


7DZ0 


129 REBOLH1 






394B 


266 REPEBT 


7D43 








994B 


267 REBOfCONTS) 


131 UHILE (K<-H> BNO (NOT EOLN) DO 






8954 


268 UNTIL C0MT3 IN CO'.-N'! 


7D66 


132 BESIN 






896D 


269 UNTIL CONT3-'N'1 


Kit, 


133 REflO(rWTD[J.K1>t 






B993 


270 END. 


7:fl3 


134 Kl-K+I 






End flddr»*il 9993 


7IB3 


133 ENDl 






Run? 




TDM 


136 IF K<«N THEN 










7C-S- 


137 8E91N 










rtr 


136 URITELHCErrmr.rttonfltncti la liint.'JI 










7-;e9 


139 KI>1 










7-J30 


148 END 










70E? 


141 ELSE Jt-J+H 








* 


7DF3 


142 ENDl 








o 


7D"C 


143 










7CFC 


144 <• *> 










7D?C 


143 <* IHITI0LISPT10N •) 










70FC 


146 (• •> 










7DfC 


147 








/ // ®y il ) 


7CFC 


149 REPEAT 








70FC 


149 FOR Ji-1 TO N DO 








^JMlif^r^'^ii — 


7E1D 


138 FOR <t-l TO N DO 








7E3E 


131 LETTRE CJ.Kli-FPLSEl 










7E32 


132 DIR:ni«aiDIRt23l-llOIR[33i"llDIR[4]i-810IRC3]i — 


tOIRC6H- 


11 






7f:o 


153 DIRC73I-1IDIRC8JI — K0IRt9]i«8) 










7FC6 


134 REPERT 










7FC6 


159 










7FC* 


136 (• *> 










7FC6 


137 <• ENTRER OES MOTS -) 










7FC6 


138 (• RECHERCHES •) 










7FC6 


139 <* •) 










7FC6 


168 








ff ^*" ^*4^ 


?F-Zi 


161 IJRITELN1 








^m \uA 1 


rra 


162 URITELNC Entr-ez lei not* a rttherth*r. ">l 








^. #^7 nv 


7FFH 


163 URITELNC L«* not* n* doiutnt »a* d»ua*»*r la ' 








m.H # ^/ 


S82F 


164 URITELNClontutur du tableau. c"est a dire '.N. ' 


. ')! 






VVIl^aa* 


8879 


165 URITELNCOan* ce cat .»eule* le* '.N. -orenleres') 








lll**^ 


M&9 


166 WRITELNClettre* teront url*e* en conote. ')t 








■^ 


sea 


167 URITELNC Pour finir . ta»«r le caractere "-" 


)l 








eun 


168 lKITELNC*eul.')l 










812D 


169 URITELNIURITELNI 








........... PBTIENTER OUELQUES INSTfiNTS 


3133 


178 Nfil-Cl 






* HOTS EN URflC ■ 


3133 


171 UHILE (N8<18) PND CSCNB,1K>'-') DO 








.......... not i DUHEN Debut il.l 


8198 


172 BESIN 








Direction i SUO EST . 


8198 


173 NBl-NB*TlPI-8l 








Hot i JEBN Oebut i 4 .3 


8190 

3108 


174 REOCLNI 

175 UHILE (P<N) PM> HOT EOLN DO 


~ Z d* D ™dl«trc 


t retherche dan* un tableau Direction I0UEST . 

.ion*, un emenble dr lot ' NRRC Debut ' 3 .2 


81BP 


176 BEGIN 


not*. [18 HMftTlnulUMMMrw nOXiftUrO 


B1BF 


177 Pl-P+lt 


La 


dir.tr 


lion, le 


tableau, lei not* 


81C6 
BIFF 

?2?2 


179 REM) (SINS. PI) 

179 ENDl 

188 IF P<-N THEN 


»ont rent ret 
du erotmnne 


ear 1'utllUateur au debut Taoei *ur fyR wur contlnuer. 


B217 


181 IF P"8 THEN NBi-NS-1 








— RESULTBTS — 


8231 


182 ELSE L0NGT[HB]:-P 


Entrer 


la dln«n*ion 


j ...M.... ........ 


824E 


183 ELSE LONST[NB]l«NI 


■Entre 


1* tableau pc 


r litne dc 3 


827C 


184 ENDl 


caracterr* 






82 7 F 


193 IF N8-10 THEN DERNIERnHB 










6291 


196 ELSE OERNIERi-NS-II 








12 3 4 3 


92fll 


187 URITELNIMRITELNI 


DRTVE 
FUBGC 
RSHRL 








82R7 


199 URITELNC -Tie.'PflTlEMTER OUELO'JES IHSTRNTS')! 








B2DF 


199 LiRlTELNr 






1 . D 


92E2 


190 FOR NBi"l TO DERNIER DO 






2 * - U - - C 


8388 


191 FOR Ji-1 TO N DO 








3 • - - H R - 


8321 


192 FOR Ki«l TO N CO 








4 • - H R E J 


3342 


193 BESIN 


Ent 


»i |« 


not* a 


rechercher. 3 • - 1 - - N 


B349 


194 LONQt-LONGTtNBJl 








t na* deea**er la 


8366 


193 IF L0N9-1 THEN 


lontue 


r du 


ableau. 


c'e*t a dire 3 . 


B378 


196 BEGIN 






*tule. le* 3 prenlere* «wl« w» donner d'autre not* -><0'N) 


3376 


197 BOOL i -TRUE I 


lettre 




en oOfwie. '^ n ton*eruont le* not* deja trouve*. > 


8370 


156 RECHERCME<a.0.J.K.nOTD.S.LON9.BOOL)l 


Pour finl 






83BC 


199 IF BOOL-TRUE THEN 








■Uoulei vow* reconnencer «uec 


33CD 


288 MOTROU'JEte.0. J. K. LETTRE. LONGJ 








It nene tableau ? (O^N) • 


33E5 


701 END 










6330 


282 ELSE 


DUHEN 








33ED 


283 FOR ui-l TO 9 00 


JEAN 






Uoulei vou» retonnencer avec un 


<j4R7 


284 BEGIN 


rWRC 
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HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 X 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 

PRENOM : 

ADRESSE: 

REGLEMENT JOINT : □ CHEQUE □ CCP 



MATERIEL UTILISE : 
CONSOLE: 
PERIPHERIQUES : 



TENNIS 



Pour les fanas de tennis mais egalement pour les autres, 
ce programme va vous permettre de jouer la finale du 
tournoi des Masters, tournoi qui sacre le champion du 
monde de tennis de I'annee. Votre adversaire Ted casio 
est unjoueurredoutablealors pour avoir une chance dele 
battre lisez attentivement les regies qui suivent et ne vous 
decouragez surtout pas ! 

M. DE SOUZA 



Le Terrain : 

11 se reduit au filet symbolise par : 

12 3 4 5*6 7 812 3 4 5 6 7 

Les points d'exclamations sont les poteaux les deux points el le point 
virgule represented le filet- Les chiffres sous les deux points et le point 
virgule sont les touches sur lesquelles il taudra appuyer pour se placer 
pres de la balle representee par un sur I'ecran quand c'est a vous de 
jouer (le signifie que c'est a la machine de jouer) Si vous n'appruyez 
pas assez vite. ..out., apparait sur I'ecran. "out" signifie que la machi- 
ne a mal renvoye, dans le filet ou dehors. 

b - Le service : le comptage des points et le service se font comme au 
ping-pong Chaque joueur sert cinq fois de suite. Le vainqueur est le 
premier qui arrive en 21 points avec deux points d'avance. 
Au service on peut (aire : - un let : on ressert deux fois 

- un ace 

- une faute : on a un second service 

- une double faute : I'adversaire manque un 
point. 

c- Lejeu:Qu3ndunO apparait a I'ecran, appuyersur la touchecorres- 

pondant a la place occupee par le O {cf a) 

par exemple : si I'affichage est le suivant : 

I :::: ::;::::::; I appuyez sur la touche 5 

!::::::: ::::::: ! appuyer sur la touche 8 

Si vousappuyer assez vite, sur la bonne touche un'remplaceleO. Cela 

signifieque la balle s'ecrasecontreletamisde votre raquette.a vous de 

decider ce que vous allez faire. 

- Pourfaire un revers, appuyez sur la touche R. Dans ce cas, ie jeu s'ac- 
celere de 0,05 secondes. 

- Pour faire un coup-droit. appuyez sur la touche D. Dans ce cas le jeu 
s'accelere aussi de 0.05 secondes. 

- Pouramortir, appuyez sur la touche A. Le jeu ralentit deO,I secondes. 
mais vous avez deux chances sur 10 de rater votre amortie. 

- Pour monter a la volee. appuyez sur la touche H. Le jeu ralentit de 
0,05 secondes. 

Pour chacun de ces quatre cas, vous avez une chance sur 10 de mar- 
quer le point. 

- Pour placer une acceleration, appuyez sur la touchel. le jeu s'accelere 
de 0.2 secondesetvousavezdeuxchances sur dixdemarquerle point. 
Quand il n'y a pas de O mais une des iettres suivantes, R. D, M. L. S. A. 
voila ce qu'il faut faire : Le R : la machine envoie la balle sur votre revers, 
pour le reprendre. appuyez sur la touche R. Le D : la machine envoie la 
balle sur votre coup droit, appuyez sur la touche D. Le M ; la machine 
"monte" a la volee. vous devez lober, appuyez sur L. Le L : la machine 
"lobe", vous devez smasher, appuyez sur S. Le S : la machine "smashe", 
pour le reprendre appuyez surZ. Le A : ma machine "amortie" vous de- 
vez monter a la volee, appuyez sur M. 



Lancer le programme avec F1 P0 Entrez votre nom (pas plus de 7 Iet- 
tres) avec EXE et la parlie commence Si vous gagnez. votre seule re- 
compense sera d'avoir votre nom a la place de Ted CASIO 
PS Quand on joue pour la premiere fois. entrer les variables suivan- 
tes : 

$="!:::::::;::■: 
2 espaces 
DS="SERV 
1 espace 
JS=".OUT" 
LS--*OUT"" 
WS="T CASIO" 



F*702 



: HSU 28: iS? "TO 
N HOK [HfiHPlON 
",F*R*H=6iU= 
?:8=2 

7 F8T "FIllflLE DES 

lfflS!ERS"!B)IO 
i! 

LIST fl 
■I R=23!H1IT R:E=8 
HHMilF 8=2:0 
1="8":80T0 8 

2 «M'!!F IMiP 

3 IF 3=8 THEN i 

4 £=18*2:6=18:6 

010 !4 
6 E=2iH=9:6=2:eOf 

14 

8 IF U=i:PRT Di=F 
t 

18 IF fi=8 THEN 6 
12 SOTO 4 

14 MKT amw)* 
6:E=Et1:T=8 

15 IF I=C; IF E=2 I 
HEI! 58 

16 IF I=C;PP,T .<!;" 
2HD";Dt:S0TO 14 

17 IF I=18;P8T "LE 
T:2 BflLLE5":E=3 
:S0TO 14 

18 IF !=H:!FE=2 1 
HEN 18 

19 IF I=H;P8T"..fl 
CE.."::Z=8:S0T0 

15 
28 PET SlCSR IIM! 

6010 18 
56 PUT "DOUBLE Fffl 

TE";:IF8=2!Z=3 

:60T0 15 
51 2=2:6010 15 



US! 12 

: inn : ::=;:;; n 

Hft»17)(2ilr != 

2 T^EK 58 

: if :=;? ires 38 

3 YI="":IF 7=8 T 

he:; n 

I ■■- i\:.v. UV 
:E=illT iPWSs; 

5 IF S*="irsS=IN: 
'RPSIS*2: IF 6=8 
;Y1="L":S3T0 17 

S IF Sl'T.WS 
":R=R-2:60T0 17 

7 IF S8=Tl«="H 
"16010 14 

8 IF E=8:YS=X 

9 iF E=2;Yt=T:F 
=8-1 

19 IF E=4i«=»f:":P, 

=8-1 
11 IF E=6;Yt=T:8 

=8-1 

17 T=l:IF Yl=" " T 
HEH S3 

18 60TO 84 • 

38 P8T L$;:Z=2:S0T 
15 



LIST 13 

1 IF T=1!PPT DCS 

R l:"0" 
18 60TO me 
38 IF KEY=»r;IF I 
=1 IHEH 14 

31 IF £EY=T THEN 

588 

32 SOTO 288 

48 IF KY=TitF T 
=1 THEN 14 



il : : EY=T HE 

M 
42 SOTO 288 

-.; ;-. tpypw - 

-. THEH 84 

il : : KEY-*? THE* 

;58 
52 ':':■': 28? 
: : ;- EY=*4'S1F ' 

=1 THEN M 
ii if EY=*f HEH 

538 
62 SOTO 288 
78 : : KEY="5"slF I 

=: ma u 

71 IF EY^S" THE:: 

72 60TO 288 

88 IF KE7="6": IF i 
=1 THEN 14 

81 IF HY="6" THE" 

588 

82 GOTO 288 

98 1FKEY=T:IF T 

=1 THEN 14 
9! iF sE"="7" HO 

588 
82 SOTO 288 
188 IF IEY=T:IFT 

=1 TNEH 14 
18! IF FEY="8" THEH 

182 60T0 283 
118 60T0 38 
128 6010 48 
133 SOTO 58 
148 SOTO 68 
158 SOTO 78 
168 SOTO S3 
178 SOTO 93 
288 PPT H;:Z=3:60I 

85 
588 T=HSO10 12 




1 SS=" ":''=8:i r ' 

S=" " THE! :; 
: PUT ;:;: : l; ; 

. ,. .,, = .;... : : 
V=Tf;S$= 
TO 12 

5 if v:=-;--: : i 

Y="Z" THE" 12 

S IF Yi='?":IFKE 

Y=T THEN 12 

ie if vi= r r;!F re 

TO 88 
13 IF YS='r:!F!E 

Y=T THEN 12 
15 IF Y*=t"!lF f'E 

7="S":»=1160T0 
u 

IT 6OT0 I2S 

18 PPT t:CS8 ISV 

28 IF UY=XiSJ=" 

P.":8=P»2:X=2:60 

TO 88 
36 IF KE¥=*R*;B=R- 

l:S0TO S3 
48 IF KEY=T:P=8- 

HSCTG 88 
58 IF KEY="I1":SS=" 

H"! 8=8*11=013 1 

2 
68 lFFE7=T"?=f- 

41S0T0 88 
73 SOTO 128 
88 E=iilT (RBHMOi 

♦1 
35 IF E=9 THEN 238 
58 IF E£X THEH 128 
133 IF KEY=*t"iIF E 

;« THEN 283 
110 ("TO 82 
126PPJ J!ilZ=3lS0T 

15 
288 PET "BIEN NHIE' 

::Z=2iSOT0 15 



LIST •: 

8 
1 ;:■ «:- •]! 

3 If »i;':' T -"' 

IHEH I! 

i : : i62i;«r=F»:6 

0TO28 
s : ; 1621 THEH 23 

13 IF 988 - = 

TO! y. 
:: : : I hiw=fi 
28 -■'■' 'H8I H0K5IF. 

Li'lSti-HI 
33 if B=8lW!SII0 

58 
43 E=8 

58 If li«5 THEN 1! 
5! If 8=2:8=3:0=8: 

::■: i: 

52 8=2:0=3:6070 II 
68 MM SKI 

33H=H»l:FET 



P:H!i P5I 6788 





UTILITAIRE 



Un ordinateur est d'autant plus puissant qu'il possede de 
bons utilitaires, tout le monde vous dira ! Fort de cette ve>i- 
te, voici trois utilitaires pour fotreHR qui, esperonsle, vous 
rendront de grands services. 

Vincent HERLICQ 



FLEX ET FLEX 2 

Ces deux utilitaires remplissent la meme fonction, ils permettent le 
transfer! d"un fichier ASCII ce qui permet de changer la taille du fichier. 
FLEX 2 n'utilise que des fonctions standards mais il utilise aussi 10me- 
moires. Son homologue synthetique, plutot plus rapide n'utilise que la 
pile et le registre alpha, ce qui permet de I'utiJiser au milieu d'un pro- 
gramme utilisant des 10 premiers registres {0 a 9). 

Les fonctions synthetiques utilisees sont simples et le tableau suivant 
donnera tous les renseignements necessaires a leur programmation. 
avec le byte grabber (XROM 28.63) 

EN MODE PROGRAMME 

RCLV 

Fonction ° 

BST 

8ST 

XROM 28.63 



SST 

V: Postfixe de la fonction desiree 

(cf tableau) Pour obtenir RCL M 

RCLIND16 

RDN 

BST 

BST 



HP 



Code 


Prcli'C 
ou fonction 


Postfixe 

(Listing) 


117 


RDN 


M([) 


118 


LASTX 


N(\) 


144 


RCL 


IND16 


145 


STO 


IND17 


206 


X- , 


ind in 




UTILISATION 

Taille NFL : Nbre de registres du nouveau fichier 

NOM NFL ; Nom du nouveau fichier 

NOM AFL : Noms des fichiers a transferer 

FAIT : . Le transfer! est realiser (les deux fichiers sont en X-M) 

FL TROP PETIT : La taille du NFL n'etait pas suffisante toutes les infor- 
mations n'ont pas ete transferees 

ASROQM : permet de calculer le nombre d'octets restant dans un fi- 
chier ASCCI {La nouvelle HP 41 CX a d'origine cette fonction). 
Mettre le nom du fichier en alpha et faire XEQ ASROOM. En x se trouve 
le nombre d'octets restants 



15:68 21.81 


35 RDN 


8HL8L -FLEX-1- 


36 CHS 


82 . 


37 flROT 


83 XOF 


38 RDN 


84 -TflRLE NFL?- 


39 XO [ 


85 PROMPT 


48 SF 25 


86 "NOH NFL'- 


41 FS? 81 


87 HON 


42 flPPREC 


88 PR0NPT 


43 FC?C 81 


89 XEQ 84 


44 RPPCBR 


18 RDN 


45 FCC 25 


11 CRFLflS 


46 CT0 82 


12 RCL [ 


47 FS?C 88 


13 "NOH AFL?" 


48 SF 81 


14 PROMPT 


49 CLf) 


15 flOFF 


58 RDH 


16 XEQ 84 


51 STO 1 


17 -FPROGRIW- 


52 Rt 


18 RDN 


53 RCLPTfl 


19 STO I 


54 RDN 


28 . 


55 GT0 88 


21 SEEKPTN 


56«LBL 84 


22 RCL \ 


57 7 


23 RCL t 


58 ULENC 


24»LBL 88 


59 - 


25 SF 25 


68«LBL 85 


26 CETREC 


61 X=8? 


27 FC?C 25 


62 RTN 


28 GT0 81 


63 X<8? 


29 FC? 17 


64 GT0 86 


38 SF 88 


65 -F • 


31 XO [ 


66 1 


32 -7 


67 - 


33 flROT 


68 CT0 85 


34 RCLPTd 


69«LBL 86 





°. /^-^-__ ___/A 


. 


78 ftSTO X 


16 PROMPT 


51 STO 18 


86 RCLPT 


71 (1SHF 


17 A0FF 


52 1 


87 STO 16 


72 PT0X 


18 AST0 88 


S3 ST* 84 


88 FS? 17 


73 CLfl 


19 BSHF 


54 FS' 17 


89 GTO 81 


74 flRCL 1 


28 AST0 81 


55 CT0 81 


98 GTO 88 


75 XTOfi 


21 8 


56 CT0 88 


91 END 


76 RDN 


22 STO 84 


57»LBL 81 




77 RDN 


23«LBL 88 


58 CLA 


15:14 21.81 


78 RTN 


24 CLA 


59 ARCL 88 


BHLBL -ASROOM 


79»LBL 82 


25 ARCL 88 


68 ARCL 81 


82 FIX 8 


88 -FL TROP PETIT 


26 ARCL 81 


61 RCL 89 


83 CF 29 


81 CT0 83 


27 RCL 84 


62 SEEKPTA 


64 CLST 


82>LBL 81 


28 SEEKPTA 


63 CETREC 


65 SEEKPTA 


83 -FRIT- 


29 CETREC 


64 RCLPT 


66 FLSI2E 


84»LBL 83 


38 RCLPT 


65 STO 89 


87 7 


85 AVI EN 


31 STO 89 


66 AST0 85 


88 • 


86 BEEP 


32 AST0 85 


67 ASHF 


89 . 


87 END 


33 ASHF 


6B AST0 86 


I6»LBL 88 




34 AST0 86 


69 ASHF 


11 SF 25 


15:89 21.81 


13 ASHF 


78 AST0 87 


12 CETREC 


81»L8L -FLEX-2- 


36 AST0 87 


71 ASHF 


13 FC?C 25 


82 SIZE' 


37 ASHF 


72 AST0 i8 


14 CT0 81 


83 11 


38 AST0 88 


73 CLA 


15 ALEHC 


84 X>Y? 


39 CLA 


74 ARCL 82 


16 ♦ 


85 PSIZE 


48 ARCL 82 


75 ARCL 83 


17 FS' 17 


86 -THILLE NFL?- 


41 ARCL 83 


'76 RCL 18 


18 GTO 88 


87 PROMPT 


42 a 


77 .881 


19 1 


88 -NN NFL?- 


43 SEEKPTA 


78 - 


28 1 


89 AON 


44 CLA 


79 SEEKPTA 


21 GTO 88 


18 PROMPT 


45 ARCL 85 


88 CLA 


22<L8L 81 


11 CRFLflS 


46 ARCL 86 


81 ARCL 65 


23 - 


12 AST0 82 


47 ARCL 87 


82 ARCL 86 


24 "OCT " 


13 ASHF 


48 ARCL 88 


83 ARCL 67 


25 ARCL X 


14 AST0 83 


49 APPREC 


84 ARCL 68 


26 AVI EN 


15 -NON AFL?- 


58 RCI P! 


85 APPCHR 


27 .END. ■ 



CALENDRIER 



\foila un utilitaire inconnu jusqu'a present, des Spectru- 
mistes. Lecalendriervousfoumiran'importe quelle date, 
apres 1982 bten entendu (changement de calendrier). 

Tony CATALANO 

Mode d'emploi : 

Apres avoir entre le programme et recu le OK du SPECTRUM, il faut 
donner un RUN. On voit ace moment su'rl'ecranle mot calendrier enca- 
dre qui clignote. Apres quelques secondes I'ordinateur demande d'in- 
troduire I'annee : on ne peut pas aller en dessous de 1582. Mais si vous 
le lui demandez il saura vous rappeler cette impossibilite. 
Apres I'annee il vous demandera d'introduire 1 mois. II faudra !ui repon- 
dre en chiffre ou en lettrecapitale. Si on ne respecte pas ca. il vous rap- 
pelleraa I'ordre. 

Une fois inlroduit le mois. il vous apparaitra sur I'ecran le calendrier 
complet du mois demande. Alors, I'ordinateur vous demande si vous 
voulezcontinuer. Avec N (Capital) on sort du programme. Avec X(Capi- 
' Tiporte quelle autre lettre on passe au 



flOUT 1918 

1_U MB MC JE V 




22 23 24. 



IS 13 14. a 

s 
19 20 21 n 

s 

26 27 2S B 



76 NEXT N GO TO T9 

77>.-or m-1 to is if <j»i_ -hm 

TMEN PRINT TOO 19.*«'S'N) > O 

to se 

78 NEXT N 

79 PRINT CTT 3.9. " R«Pondri c 
riumnt ' ' ' (atu i « e lu 

ENTER) " INPUT Z% PRINT CTT 2 . 

: PRINT S* CO TO 78 

38 PBUSE 1QS SO SUS 2902 
95 LET ■ <2> -bi 4 ♦2-3 
100 FOR «-N TO 12: CLS CO SUB 



2 DIM 
M S ( 12) ! 



r-CRO 



FOR 



»% (12,9) 
DIM M* 19 



DIM 



I 15, 



DI 



2: READ AIU) : 
LET 5 til *i : MEXT i 

DfiTft ■' JRNUIEft-' ,31, FEURIER" 
-28, '-MORS'' ,31, '•(WfttL",38, "Mfll" ,3 
1,"JUIN" ,30 

8 DRTR "■JUILLET- ,31,-OQUT" ,31 
, "SEPTEMBRE" , SC , "OCTOBRE," . 31, "MO 
UEMBRE" ,30, "OECEMBRE" ,31 

S BORDER 1: PAPER . INK 7; C 
L5 

9>!_ET Et = - 



FOR 1 = 1 TO 16: PWOSE S- 



SPECTRUM 

li print ht 7,0; ■'BaacustticaaBao 

12 PRINT RT 8,0; '■ansaustaoaaaai; 
BanattaBBascKnacaoKannsa- ;TRB 28; 

"KttStK" 

13 print at iq, e, "nana c p. l 
E N D R I E R aans" 

14 PRINT RT U.e,' , Baaa",TflB 2S 

;*-aBaaaBncaaBaaaa»aaaaaa^anaBBaK 



BnaBnosvaaaaBBBonitoassisnaaitBaii) 

BBaaaB3BB3aaBBOB3BBBB8aBBaBSBBBS 

FEURIER 194-9 
S n 

3 di lu un ne je uc sn b 



B 20 21 22* 23 21 25 26 3 
a 27 28 

iBaaaaaBaaaaaaBsaBaaaBBBaaasaaaa 

4.0JINPUT INUERSE lj FL«5H 1; "fl 

4.5 IF'u ;15S£ THEN PRINT AT 2,0 
; '■ PP5 PLUS EM ^=IERE OUE 1S82 
' irppu. er iur ENTER) INPUT 

Z»; PRINT RT 2,0; PRINT BS: GO 

PINT TfiB 19,'j: PRINT RT 10 



5000 

120 PRINT ■■B",TRB 31," 

125 PRINT "tr'.TRB B;.J 
, V ;T«B 31, - B" 

130 PRINT -B-.TRB 31," 

135 GO SUE 3330 

1*8 PRINT "a-;TRB 31;" 

14 5 PRINT "B DI LU 
E UC 5R a- 

150 PRINT "B",TA8 31," 

151 PRINT "B",TflB 31." 
152 > PR INT 'B-.TRB 31. 
155 FOR i=l TO MIM) L 

( t«**i ♦ !) /7) 
16S LET C=4* Id ♦» +1) *-3- 

170 PRINT -B",TRB 31," 

175 PRINT 'B-.TRB 31," 
1O0 PRINT RT r*2*7,c*( 
190 NEXT i 

195 PRINT 'B-.TRB 31;" 

";T«B 31; - 



■ ) . 



XMUEftStl 1 . 



212 IF 



OR LU 



TMEN ST 



, 10 



15 PRINT RT 13,0 

naaaaaHBaasaBaaaac 

16 NEXT I 



M I;—-. 

71 INPUT INUER5E 1, FLRSH 1; "H 

* 72 IF CODE MS<65 TMEN GO TO 77 

75 FOR N = l TO 12 IF tlS=R»(N) 
MEN PRINT TPB 19,R»<N) ! GO TO 8 



213 IF L»="D" OR L»-"d" TMCN GO 

TO 20 

214. IF L*="C" OR L*-"c" TMEN CO 

PY - GO TO 2 10 

216 IF M = 12 THEN l_ET N-l LET T 
■Y+l: GO SUB 2000; GO TO 95 

999 NEXT e 

2000 LET b.S-0 

2O10 IF y-INT IU/4H4..0 RNO V-tN 

r cv/ieei tieooo then let bi&ai 

202O RETURN 

3000 LET d=l 

3010 LET f =* + 365*y*<J+31» <»-l) * IN 

r [(y-!»oi i ,'4i -!«..?! tn,r ;.*•■. 

2.3) -INT 13/4* (INT ( N- <B<3) ) /10 

0) -t-1) ) 

3020 LET d = f-INT (f/7)»7 

3030 RETURN 

3040 LET p = I ^100 

S00O print "BaaaaaaanRnaacaancaa 

-aaaaaaaaBaB" 

5030 RETURN 



LEM 



T 



Ce programme fonctionne sur un VIC 20, version de base, 
equipe des Joysticks. Vous pilotez un vaisseau (LEM) a la 
surface de la lune. 

Une fois le programme entre dans un VIC 20 (en version de 
base uniquement),et une fois le Joysticks branche, lancer 
le programme. Apres quelques secondes necessaires a la 
redefinition des caracteres et a I'implantation du sous- 
programme en langage machine en memoire, votre vais- 
seau (un LEM) apparait a gauche de I'ecran. En bas a gau- 
che, se trouve un compte a rebours et en bas a droite, vo- 
tre score. Le terrain de jeu est une montagnequi defile sur 
I'ecran. 

Al'aidedu joystick vous devezeviterdevousecrasersurla 
montagne en montant ou en descendant. De plus, despe- 
tits paquets (de ce que vous voulez) apparaissent sur la 
montagne ; vous devez les rammasseren passant dessus. 
Lorsqu'un paquet a ete pris, un bip sonore vous le signale 
et votre score augmente de 1 Point. Le jeu se derouie en 
1 minute, pendant laquelle il faudra ramasser le maximum 
de paquets (mon record est de 96 paquets en une minu- 
te). 

Lorsqu'une partie s'acheve, soit parce que le temps est 
ecoule.soitparce que vous vous etescrache sur la monta- 
gne, il vous suffit d'appuyer sur lebouton rouge du joystick 
pour rejouer. 

Le programme utilise un sous-programme en langage 
machine implante en 673, pour faire un scrolling de droite 
a gauche de I'ecran. 



T- 



Pierre OUZIEL 
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10 CLk ijuiUfcia* 'SVS673 

Z<6 Pftiffr.T P0KE36867,23 FjORI"76«fT08183 P0KEI,6'NEXT:| 

30 POKE 36379. 43 -Z«1'B=7?5-J -f-OKEIJ-i ,Z-1 POKED/ Z!8M*36e77 VBL-8H*IiTIt«»'B»BBl" 

y-j QDSUBSOe OOsUB409 

49 3VS673 PO* E7781 ,6 ■ POKED- 1 .6 POKED-i.6 WiutMW 

■=Ji K = FEE> <.jriM> Iff =-^'jPr -l^blHUitO 

i>j jf-K = l«;iu^ , = t J8/*HDU'.;VtWilHEMD»D-2J 

00 \H*PEEKiD~li y-PEEK<D> ihj=4us-U= JukU-5Qf.:ui-4rjrViJi-juKtJl»sTHtnHjKtb-l . - P0KED.8 
oorone „ „ 

90 IFU-2 e iHDUl=2THLtt;''-=.ii-+£ 'juiut-iyo ' J u i 'Jl"ii;y ijui'Jli-iOO ijunjiwo 

'\W P0KEH-I.2-i POKED. z-Gorrjise rj _ iicjI 

110 F0RI-1TO15 P0K£SW.Uii+I*5 POI EVuL. 15-1 P0Ke36864. I31F0RJ-1T03B ME/.T 

!<>; n- L ;-_,->_,■). U' F0RJ-IT038 ICX1 NEXT F0KESU.8 

136 |Fr£EK<371Sl>03«»«lPE6K<371SJ^094THENJ3e 

14ti RUK2e 



•>IHT<RHD<1}*3> P»PEEXtflD-13 
160 JFX««THENZ2a 

178 iF^-lTHEfli p 6(J 

180 IFP-50RF'«3THElii£ie 

130 [FRD>7921TMP415Q 

208 ro-MH22 

210 POKEftD.4 90T048 



220 lFp=4'KEr , 2->.-< 

238 lFMD=i'7i;3rMEr(15e 

^40 HD-HU-22 

250 FOKEflD. 3 001040 

260 IFP»S0RP-3THEH29« 

27B IFRD-792nHEIIl-r.ei 

288 flB-fi5+22 



j F0RI"8T0I5S FLmDh P0KMX*4*Iffl he:-; 

309 XH-3M F0RJ-7MT09278TEP2 FWefii44*i,2S5-PBEK<327*8*)«) P0KE6145*1 . PEEI 
327^000 

306 XX««XX+I Ht/1 

■;IR HjM't'-.'t'V'J F'jr k'.l'H'l ■ '-' "I 1 *--■■•> » ■•/'.."■■l 

328 F0RI*C '"■■ M.iin t-ij.:L],H nt/.i RRTURH 
368 L.h!Wj,0,0.o,0.0.|,*;.4. r.,.l. I] 15 5.6.21 

:...,- i.ij,m,h.h.i 1, i«.j, 64. 32/ 248 !■■■ - 48.240, 1 00, 16.36 
343 t'KTH0,8,0, 0.0, 0,0.0.8- 8- 20- - 1 « ' 
J64 DnTAlflf2.K<4,4,8,6' !•-- !•■-.■ ' ^,4.128.128 
!-.•■ MTRI28, 128. 84.64, 32- 32. 18. l*.8,9/4.4.2.2,l.l 
J68 W»7«399>295.e.8.8.e,e.e.e.8.e.8.8 8.8.8 

je? iMTfB.e.9'0fe,e.0.e<o.0'0>0'8 " " •' 

366 WOfl0,0.9.2, 17.9.4. 112.4/8. 17.2.8.0.0.8 

■' ' MTR0/0.0.32,M.8,1« • !'.■ ••- , '; l .' M .:' "„ ... , M ,„«,™ ... 

./a tii, in v v, ■■ ■ ,','■ .',"■ 255 . , - 255- 255< 255, 255, <33 -433 

? tS"|H 5 4i .... ..,.-. 1 . . Ill .1 ■ . ■ 

■i •■■ -■ II ■ I* -i '"' i»' ;:•"-'■ ••'" ! 

.162,1,189 -.. ■•' .-■'- 1' ■ -. ■".--. •224,22_.i 
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rff8 DflTBI? 
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BOGGLE 



Vous y jouiez I'ete dernier sur la plage ? Jamais entendu 
parler ?... II n'est jamais trop tard pour apprendre a jouer 
au BOGGLE, avec quelques amis, tous autour de votre 
ATARI, grace ace programme proposant deux niveaux de 
jeux, sur des grilles de 16 ou 24 lettres. En trois minutes, 
combien de mots composerez-vous ? 

Alain THARY 




lTAR[-IOGGl-Et* 



I0ftl» 70IINPUT Sr Tl 
IP S-l THEM 5-41' 
IF S-2 THEN S-S:' 



OU 7 POUR ■ SU 



Jos setcqlo* o.e.e;seTcoL.(w i.o.iaisncoto" i.o.o 

300 ? " ,',, -i-i.ii ^ SLEUTH' 

^IKUTEBIE'I 



3?0 POKE 75S, I 



*oo sccoNpS'ieo 

420 T-TIliE 

430 7 ■(.■!■! *k*l INK6EC0HDG.4OI I": "I 

431 IZ4-SIB4 (SECONDS- IKII SECONDS /40 I 4401! 



432 ■ 

433 ; 



440 1' SECONDSIO IHEH SECONDS— SEC QNBS • 1 : 00IO 410 

^00 riKKBllfTI IPEEKI1BI»45S36*PEEKI1»I«73*'PEEKI20I J f40> 
310 IF TIKE-I THEN 300 
320 BETU4N 



[ tEB BEOLfS'l 'INPUT B4 



■30 


\-> 'NOHBIIIE 


DE L 


TTRES 


030 


■POINTS 






,-,i-i 


!' •N0«B»e 


DC L 


TTHF.S 


170 


•points: 




r 








1000 








1010 




MM 




1020 


if 0»>"' TMI 


* IF 




1030 








1O40 


■> 'O SLEUTH 


■ *( 


un |* 


1 1- 








I0M 




'■"1 




i..-,-, 








i 104 


'1' -Oil 


Ou* 




] 1 10 


f t» • ! F r 






1120 


■»:»■* « t 


'" 





tfPS* 





•r«««*i MtuJDtMl INMI1 «4 


730 ■• 'ii ■ 


!■ im «•• ipoib ->" ">i 


131 ■ ■ • ^»" 




240 "* - CUKU 

,u,, -.-..-, .,.-,. ,|, 
310 »> l» t* * 

SI 8 • ■ HI 


■UPI* BOOOII 4P )■)'•• •-»' la 


3*0 » *I4 »•• 
lid B-310OBUB 


■00 

■-..*•• i •uimN •itlMPui 


J»0 «ttl»H 
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JE DESSINE 



Ce programme sans pretention et sans astuces parti- 
culieres devrait interesser certains d'entre vous. Ce 
programme est un jeu creatif permettant la transforma- 
tion du moniteurde votre APPLE en chevalet, laissant ainsi 
libre cours a la creation de dessins. La simplicity des 
commandes en fait un outil facilement manipulate par 
des enfants. 

Remarque : Une carte couleur et une imprimante seront 
les bienvenues, mais, ne sont pas indispensables. 

Lionel LIGNON 

- but : Permettre a des enfants scolarises en cycle primalre de sefami- 
liariser de maniere amusante avec les coordonnees X, Y d'un point 
dans un plan. 

- moyens : Le programme peut executer a la demande, en basse reso- 
lution, les commandes suivantes : 

*•' Choixd'unecouleurparmi les l6proposesentapantlecode ALPHA 
correspondant 

■*■ Dessin d'un point par I'ordre "." suivi des coordonnees X. Ydu point 
Dessin d'une verticale par I'ordre "I" suivi des coordonnees Y1 et Y2 
du point de depart et du point d'arrivee et de la coordonnee X de la 
colonne 

"* Oessin d'une horizontaleparl'ordre "-"suivi descoordonneesXIet 
X2 des points de depart et d'arrivee et de la coordonnee Y de la ligne 
**' Dessin d'une oblique par I'ordre "/" suivi des coordonnees XI, Yl du 
point de depart et des coordonnees du point d'arrivee (X2. Y2) 
*** Dessin d'un cercle par ordre ":" (c'est-a-dire la touche portant le 
caractere *) suivi des coordonnees X, Y du centre et de la longueur R 
du rayon 

*" L'ordre =■■*■*= indique que le dessin est termine. II sera transpose 
sur le papier (les couleurs sont codees par des caracteresalphanume- 
riques). Ensuite le dessin est efface et 1'ecran est libre pour un nouveau 
dessin. 

"* La fleche gauche annule la derniere commande 
*** La fleche droite remplace le dernier caractere quand celui-ci est 
inutile. 



*'* Le programme verifie les coordonnees. II refusera toutes les coor- 
donnees inferieures a 1 et superieures a 37 

*** Le programme verifie que le cercle est "Iracable" en fonction des 
coordonnees du centre et de la longueur du rayon. 
**" Tout ordre non valide est signale par un beep 
**• Les changements de couleurs sont signales par un beep 

- affichage : 

*** Le programme affiche en permanence un cadre gradue : 

1.5.10.15.20.25.30.35 horizontalement et verticalement 

'" La gamme des 16 couleurs disponibles est affichee. Juste en-des- 

sous figurent les codes ALPHA de ces couleurs 

*** La derniere couleur choisie est inscrite en clair a droite de I'ecran 

"* La derniere forme choisie est indiquee sous forme d'initiale : 

- P = point 

- V —verticale 

- H = horizontale 

- O — oblique 

- C — cercle 

"* Les demandes du programme sont aussi affichees en bas a gau- 
che : 

- ??? «- J'attends une commande 
-??X - la coordonnee X 

- ??X1 - la coordonnee X1 

- ??X2 - la coordonnee X2 

- ??Y = la coordonnee Y 

- ??Y1 - la coordonnee Y1 

- ??Y2 = la coordonnee Y2 

- ??R - le rayon R 

*" Le trace du cercle est corrige (en effet en basse resolution I'Appte II 

dessine avec des rectangles et done les cercles se transform era i en t en 

ellipses) 

*** Ce programme fonctionne en couleurs. 



ANNULE LE DERNIER DRD 



REM 

RE 
r-.LV -- PEnPLACE LE DEUXIEME 

CARACTERE 
I REM RETURN ET ESF'ACE NE SONT 

FAS PRIS EN COMPTE 
> REM m IHPRIME LE DESSIN ET E 

FFACE L'ECRAN POUR FAIRS UN 

AUTRE DESSIN 
■ DATA 0,2,4,7,9,12,14,17,20,2 

3,25, 27,30,32,34,37, 1,5,10, 1 

5. 20.23, 30, 33 
1 TEXT : HOME 
• GR : REM PASSAGE EN GRAPH I DU 

E BASSE RESOLUTION 
' REM INDICATION DES COULEURS 

ET DES CODES 
1 VTA8 22: PRINT "N M 6F P VF 




G BM BC BR 


3 RO V J TU 


BL" 


INVERSE : 


PR I 


NT "I-VERT 


— H 


OR . -POII 


JT f 


=OBLID -=CERCLE 


POKE 34,21 








HOME : NORMAL 








[i|"f 


COULEURS 




f ■ 39 








FOR I - O 


rn 






COLORE I 








READ X 








PLOT K,Y 









REM CADRE 

COLOR* IS: VLIN 0,37 AT O: HLIN 
0,38 AT O: VLIN O, 37 AT 3B: C0L0R= 
FOR K - 1 TO 8: READ X: PLOT O 
.X: PLOT X,0: PLOT 38, X: NEXT 



290 


RESTORE 


300 


HOME 




REM JE LIS LE CLAVIER 




AS = ■■": VTA8 24: HTA6 ll PRINT 




"??"IVS; TABC 12) "FORME-* I PS 




; TAB< 20)"COULEUR = "SNSt: CALL 




- 93B: FOR K = 1 TO 2 




VTAB 24: HTAB K: GET XS: VTA8 




24: HTAB K: PRINT X»l 


340 


IF XS = CHRS (211 THEN K - 




2: GOTO 380 




IF X» » CHR» (13) OR X* = " 




" THEN GOTO 3B0 


360 


IF XS - CHRS IB) THEN XI - 




0:X2 - 0:Y1 <* 0:¥2 - 0:V* ■= 




"? ":P* - '• ":K = 2:A» = 




GOTO 3B0 


370 


AS - AS * X* 



IF AS = "*" THEN HOME : GOSUB 

1080: GOTO 140: REM BON PO 

UR UN NOUVEAU DESSIN ( SI VO 

US N'AVEZ PAS D' IMPRIMANTE S 

UPRRIMEZ LE GOSUB > 

REM JE CHOISIS LA COULEUR 

IF A* - "M" THEN COLOR- 1:N 

S = "MAGENTA" 

IF AS - "N" THEN COLOR" 0:N 

* ■ "NOIR" 

IF A» ■ "BF" THEN COLORE 2: 

N» - "BLEU FONCE" 

IF A* ■ "P" THEN COLOR- 3:N 

* - "POURPRE" 

IF A* = "VF" THEN COLOR= 4: 

N* = "VERT FONCE" 

IF A* - "G" THEN COLOR- 5:N 

S - "GRIS" 

IF A* - "BM" THEN COLOR= 6: 

N* - "BLEU MDYEM" 

IF At - "BC" THEN COLOR- 7: 

N* - "BLEU CLAIR" 

IF A* = "BR" THEN COLOR- 8: 



■ THEM COLOR' 11 

THEN COLOR- 12: 
NS » "VERT" 

IF AS = "J" THEN COLOR- 13: 
N* - "JAUNE" 

IF AS = "TU" THEN COLOR- 14 
:NS - "TUROUOISE" 
IF AS = "BL" THEN COLOR- 13 
:NS ■ "BLANC" 
REM JE DESSINE UN POINT 
IF AS - »." THEN XI - - UP 
* - -P":VS - "X ": GOTO 310 
IF VAL (AS) > O AND VAL IA 
*) 38 AND PS = »P" AND XI 
THEN XI - VAL (A*) I X2 ■ - 
l:VS - ■¥ ": GOTO 310 
IF VAL (AS1 > O AND VAL (A 
•> < 3B AND PS - "P" AND X2 - 
THEN X2 - VAL <AS);VS = " 
7 "; PLOT X1.X2:X1 - O: XZ - 
O: GOTO 310 
REM JE DESSINE UNE VERTICALE 

IF AS - "I" THEN XI = - 1:P 
S = "V":VS = "Yt": GOTO 310 
IF VAL (AS) > AND VAL (A 
S) < 3B AND PS - "V" AND XI 
THEN XI = VAL (AS):X2 - - 
UVS - "V2": GOTO 310 
IF VAL (AS) > O AND VAL (A 
») '. 38 AND PS - "V" AND X2 ■: 
O THEN X2 - VAL IAS):VS - " 
X ":Y1 = - li GOTO 310 
IF VAL IAS) > AND VAL (A 
•) 4 38 AND PS = "V" AND Yl < 
THEN Yl = VAL (AS): VLIN 
XI. X2 AT Y1:VS - "? ":X1 - O 
:X2 » O.-Yl - O: GOTO 310 
REM JE DESSINE UNE HORIZONTA 
LE 



THEN 



(1 - 



GOTO 3tO 
IF VAL (AS) > O AND VAL (A 
S) < 3B AND P* - "H" AND XI < 
O THEN XI = VAL <AS>:X2 - - 
liVS - "X2": GOTO 310 
IF VAL (AS) ) O AND VAL (A 
») < 38 AND PS = "H" AND X2 -: 
O THEN X2 - VAL (AS):V* - " 
Y ":Y1 - - li OOTD 310 
IF VAL (AS) > O AND VAL (A 
*) < 38 AND PS = "H" AND Yl < 
THEN Yl - VAL (AS): HLIN 
XI. X2 AT Y1:VS - "7 ":Xi - 
:X2 - OiYl - O: GOTO 310 
REM JE DESSINE UNE OBLIQUE 
IF AS - "/" THEN XI - - 1:P 
* „ -□■■jvs - "XI": GOTO 310 
IF VAL (AS) > O AND VAL (A 
S) < 38 AND PS = "O" AND XI 
THEN XI - VAL (AS):X2 - - 
l:VS = "Yl"j GOTO 310 
IF VAL (AS) > O AND VAL (A 
S) ■; 38 AND PS - "O" AND X2 ■ 
O THEN X2 - VAL (AS):VS - " 
X2":Y1 - - li GOTO 310 
IF VAL (AS) > AND VAL (A 
S> < 3B AND PS - "0" AND Yl ■ 
THEN Yl - VAL (AS):VS - ■ 
Y2":Y2 » - 1: GOTO 310 
IF VAL (AS) > AND VAL (A 
S) < 3B AND P* - "D" AND Y2 < 
THEN Y2 - VAL (ASJjVS - " 
? ": GDSUB B30: GOTO 310 
REM JE DESSINE UN CERCLE 
IF AS - ":'• THEN XI - - 1:P 



&PPLEN 



IF 



VAL 'AH 






: 

VAL (A 

■ '■■■ ' 



- AM 

UVS - "Y ■■: 
790 IF VAL (AS) -t AND VAL IA 

• i :a AND FS * "C 

THEN (2 ■ v.-; IAS) tVS ■ " 

R "! -I = - 1: GOTO J10 
e "-■ IF VAt (AS) AND VAL (A 

*j ;a and f» - -c 
■.' rHEM vet tAsjivs • ■■ 

' ": BOSUB !'■■■■■: GOTO 310 
EH JE NE DFSF.INE RIEN 
■ ■ .'■ ■ • ■ . : 10 

830 REM COMMENT FAIRE UNE QBLIOU 



B40 IF XI 

PLOT XI. X2: KOTO T90 
830 SX - ItSY - 1 

B40 IF XI ■ Yl THEN SX - 
870 IF X2 • Y2 THEN SY - 



rHEH 



IF ABS (Y2 ■ 



'2) 



THEN GOTO ' 



990 

PLOT X.Y 
GOTO 900 



930 Y - Y ■ 
960 IF Y ■ 

990 
970 PLOT : 



SX THEN GOTO 



SY THEN GOTO 



REM COMMENT f 



! - Os RETURN 



4 CERCLE 

IO10 IF Yl / 1.5 -XI -37 OR Yl 
* X2 > 37 OR XI - Yl / 1.3 < 
I OR X2 - Yl < 1 THEN PRINT 
CHRS (7)1 CHRS (7)11X1 - O: 
X2 - OfYi - 0: RETURN 
1O20 FOR W - O TO 2 • 3.14159 STEP 

1030 X - INT ((Yl / 1.3) . COB 

(W) ) * XI 
1040 Y = INT (VI * SIN (Ul) » X 

2 
1030 PLOT X.Y 
I0&0 NEXT W 
1070 XI - 0:X2 ■ 



■ O: RETURN 



PRINT CHRS (4>J"PFi«|- 

PRINT 

PRINT "V01CI TON DESSIN 

PRINT "JE REGRETTE OU'IL 

SOIT PAS EN COULEURS • " : 

: PRINT 
FOR Y - 1 TO 37 
FOR X » 1 TO 37 
IF SCRN( X.YJ - 

"II GOTO 1160 
PRINT CHRS ( SCRN( 

65); CHRS ( 5CRN! X, 



CHRS 
CHRS < 



'HEN PRINT 




MOTS CROISES 



Danstous les magazines il y a traditionnellement des mots fois pour toute par I'utilisateur. 

croises... et pas dans HEBDOGICiEL mon journal ! Seule change la partie definitions et cases noires, ce qui 

Je vous propose done une grille de mots-croises "infor- represente un sous-programme de seulement 8 lignes 

matique". (1000 a 1070) a retaper a chaque parution. 

Son principe : Le programme de base (graphisme, prise II n'y a dans ce programme que des definitions horizonta- 

dedonnees, verifications etc..) est tape etenregistre une les. Les verticales existent toutefoisetle fait deles deviner 



aide grandement a la resolution de la grille. Une fois la gril- 
le remplie, I'ordinateur test les resultats et donne pour 
chaque ligne son avis. 

Si la grille est correcte, les Hippocampes en voient de tou- 
tes les couleurs. 

Sinon, on continue... ou on attend la prochaine parution 
pour avoir la solution. 

Alain RUYER 

N.D.LR. : Voila un programme passionnant et tres origi- 
nal ! lecteurs nous attendons vos propositions de grilles ! 



T\-99 4/A B ASICETENDU 



'(I0O) : 



NING NEXT 



200 DIM 

210 REM 

220 REM GENERIOUE 

230 REM ••>>><••> 

240 CALL CLEAR 

250 CALL CHAR(128,"007E7E7E7E7£7E00") : : CALL CHAR ( 137, "007E7 

E7E7E7E7E00") 

260 CALL CHAR(96."040F1FOF1FOF1FOF40EOE070FOFBDCE05F7FFFFF7F 

4F070FF0F0F0F0E0E0C0 80" I 

270 CALL CHAR (1 00. "070303030301 0Oi'iOBO8O80eB9BFBF0O0" 1 

280 CALL SCREENI11) 

290 CALL C0L0RU4. 16.9): s CALL COLOR ( 13, 2.9) : ; CALL C0L0RI9, 

3, 16) 

300 CALL HCHARd . 1, 137,32): I CALL HCHAR<24, I. 13 7. 32) 

310 DISPLAY AT<3,2)!"« MOTS CROISES*" 

320 DISPLAY ATI4, 2) :■■—--— *—.—.—— -.-.—.-v..^ ,.„.. 

330 CALL HCHAR(6, 1. 137,32) 

340 DISPLAY AT (8. 1 ) : "REMPL ISSE7 LA GRILLE AVEC" 

350 DISPLAY AT (9. 1 ) : "LES DEFINITIONS HDRI ZONTACES" 

: "TAPE/""0""LORSDUE VOTRE GRILLE" 



37i 



SPLAY AT 

80 DISPLAY ATI 14 

■'•' DISPLAY AT (13, 
> DISI 



2. I) 



410 DISPLAY AT(21 . 1 
420 DISPLAY AT<23,2 
430 ACCEPT AT(23.20):ES 

4*0 r-rM 

450 REM GRILLE 
4*0 REM 

470 CM i r.i I Afi 

ISO CM i Bl Rl I NISI 

"■■"• CALI COI Ml" !'.•.-., 5) : : 

FOR X-] 10 H ii CAT I. COI C 

■ "- K-i ro i" : i '.(ii i 



EST PLEINE 
JE VOUS DIRA 
EST CORRECTE' 
SINON. . .ON CON TIN 
DON COUFi AGE 
"ENTER" 



ALORS SI ELLE" 



510 CALL HCHARI4.5.96):: CALL HCHAR(4. 6. 9') : : CALL 

HCHAR (5, S, 98) 

520 CALL HCHAR(5,6,99) :: CALL HCHAR<6.3. 100) : : CALL 

HCHARI6.A. 101) 

530 CALL HCHAR(4,28.96): : CALL HCHAR(4, 29, 97) : i CALL 

HCHAR(5,2B,98) : : CALL HCHAR 

(5.29,99):: CALL HCHAR (6. 28, 100) I : CALL HCHAR(6,29.K 

540 AS-"1234567B9X" 

550 FOR X-l TO LEN(AS) 

360 CALL VCHARIX. 10. ASC (SEGS (AS. X. ) 1 > ) 

570 CALL VCHAR(X-H4,3.ASC!SEGS(A*,X, 1) ) ) 

380 NEXT X 

390 GOSUB 910 

600 RESTORE 1030 

610 FOR X-l TO IO 

620 READ TS.CODE(X) 

630 DISPLAY AT I X* I 4 . 3) : TS 

640 NEXT X 

630 DISPLAY AT ( 1 3. 1 ) t "1. 1 ONE'': ( >"" SI TERMINE) " 

660 ACCEPT AT(13.B)VALIDATE(DIaIT)BEEP BIZE(-2)tLl II 

IP I. I 10 THEN &90 

670 IF I 1=0 THEN 7O0 

600 ACC6P1 ami [,10)VALlDATE(UAt,PHA)BEEP SIIEf-IOJiBl 

690 GOTO <:'-.■• 

/ -I 11 •••• 

710 1:1 M II M 

720 REM 

730 FOR X-l TO 20 : : CflLI COLOT(»X,») I I Nl I ' ' 

DIB ■ "I ' I '. 1 » : " UN INSTANT 

S.V.P " : : Rl ' 'i 1"!" I I OOBUB »10 

'40 POP ' ; 1 TO 10 

750 GOSUB 830 

740 NEXT X 

770 FOR X-l II) 1" 

7S0 n TEST <X> ■CODE (X) rHKN DISPLAY AT IX. 21)81 II ' " ■ I "I 



LSE DISPLA' 
) NEX' 



AT< 



)Sl/E(3) ; 



■NUN- 



BOO FOR X-l TO 10 

QIO IF TEST tXJ*CODt(X) THEN ii." li SI M4<> 

820 NEXT X 

B30 DISPLAY AT(lT.l):" BRAVO • • A BIENTDT, , . . " It 

O-INTIRND-141 *l :: CALL COLOK 

(9.0, 16) :t FOR D-l TO 200 it NEXT D ll GOTO 830 

840 DISPLAY AT ( 13. 1 ) : "C'EST RATI; 11 " n FOR D-l II) 1 11 

NEXT D it FOR X-l TO 1 :: TE^.TIxi-o :i NEXT x ii GOTO 6SO 
830 FOR C-12 TO 21 
860 CALL GCHARIX.C.CAR(C) ) 
870 TEST(X)-TEST(X).CAR(C) 
BBO Nl> I r 
B90 Rl rURN 
900 END 

■I- GOSUB i 

920 P OB X-l TO CASFB 

9 to READ 1..C 

9*0 CAI i W RITI (SX. I ■'■ '■ II »B> '• <C-B)-' 

• '.■■ Ml XI X 

960 REM 

.■.-., ;. i ii i ,,i : ii n I.H/iNi.l.l- fill 

■ill" |..l M I II III '■ N'll'l i nil 

990 ' l M 

i v.i B -■.' i I '■ '" 

1010 DATA i . i ■•--'. i ■- !. r>. ... i . I, ) '.4. li'.' 
'., IS,*, l ■■■•■. 19, '.14, ■'. ■'" 

i". i B, 13 .it. i ',S. 19,9, i 1,9, i'.. i", i '.I'-.' ■ 

■ Mii.iii.i.l DE BABI ' ASRI.7T9, fRI P1A0NETIOOI 

|m.1m i. ,■,-.. ,:■, in. i i i AIMINYMI ■■. 114 '. URUI I'! ■ QAIS0N,1 "' 

IOSO DATA i.i il<"' 'I ""■■' ' ' ' ' " "" 

1060 DATA I i RSONNI i ' MAI D'OW H i ' iSSO.I rATS UNI8 B01 i II 
t 070 DATA null MUSI 01 DNOM B.BA3.M 101 Rl ■ AS ,S*B 



HCHAf 'i 



1.3, 13, 



i ,903 



MATH 07 



Ce programme tourne sur un CANON X 07 equipe d'au 
moins 4K supplementaires. II rappellera peut-etre que le 
CANON X 07 a des possibility qui peuvent etre utilisees 
autrement que dans des applications ludiques. 

Fernando COSTA DOS SANTOS 

POSSIBILITY DU MATH 07 

II est possible avec ce programme : 
1 °) de decomposer en produit de facteurs 1" un nombre n 
2°) de chercher le PGCD de n nombres 
3°) de chercher le PPCM de n nombres 
4°) de chercher tous les diviseurs d'un nombre n 
5°) de calculer les logarithmes dans toutes !es bases 
6°) de calculer les exponantielles dans toutes les bases 



7") de calculer la lactorielle d'un nombre n 

8") de chercher la valeur de n(10) en base b et vice versa 

9"-) de calculer uniquement avec le clavier 10 touchesa + b.a — b.a'b 

a/b. a " b. b a. a moDb. a Y b 

1 0°) de resoudre ax + bx + c — 

11°) de resoudre ax + cy + c — 
dx + cy + F - 

1 2°) d'etudier une fonction F(x) ; 

a) automatiquement 

b) manuellement 

13 r -) d'etudier F(1) - (methode de NEWTON) 

14 c ) de tracer a I'ecran le graphe de F(x) a I'echelle choisie ! et oui ! 

Mode d'emploi du MATH07 

II n'est nul besoin d'etre ingenieuren informatique pour pouvoirutiliser 

ce programme. 

On accede a la fonction desiree tres rapidement grace aux differents 

menus. 

Aux menus, il faut repondre : 

a) soit un d's chiffres affiches 

b) soit F pour sortir du programme 

c) soit R pour relancer le programme au debut 

Quand MATH 07 a termine le travail demande. il affiche a la suite du 
resultat FAIT exception faite de graphe de F(x) qui est sanctionne par 
un BEEP 9,8. 



Quand FAIT est affiche {ou que le beep retenti) le programme attend 

une des trots reponses survantes : 

a) Touche F fin du programme 

b) Touche M ou reexecution de la part.e qui vient d'etre execute© 

c) Autre touche RUN debut 

Cependant. afin de rendre plus aisee la progression de module en 
module il peut y avoir de petites derogations. Cest le cas de 

A) LOG 8 EXP : 

F Fin de programme 

B RUN changement de base 

E RUN EXP 

L RUN LOG 

Autre RUN debut 

B) ARITHMETIQUE 

F finde programme 

R RUN debut 

M reexecute la meme operation r 

C) ETUDE MANUELLE DE F(x) 
A autre calcul de F{x) 
Autre Fin des calculs de F{x) 



lais change les parametres. 



Dans le listing presente ci-dessous le signe I signitie e. 



70 CONSOLEO.a.O, i,o:consol 

aO CLEAR3O0 

90 CL8 

100 PPINT-i-Hi lar 

110 PHINT'Z-CHLCULS 




310 'PGCD 
S20 *•*•» 

330 INPUI-Nh S* tvrmi 

340 eori-1tont 

330 inputnti1 ) !next 

360 n-mhii :m-ntiz»: i 

370 0-1NTIN/MI 



690 


print 


)-• 




700 








710 


IFA«- 






770 








730 


■PPCM 






740 








750 


input 


Nh 


i. i*rm.,-,NT,P 


??r> 


INPUT 


r | | 


(TNIII-NTCXIIN 


7 BO 


DEFIN 




11X1311 : RESTORE 


790 






-.PEHOKt I ) :next 


noo 








eio 


PORXP 


OTO 


J30STEP210 



X-07 



:-:C0TO134O 



1610 f 



J ELSE IP DM TiCN 2 



•UNITE BOClNES-iGOTO ItbO 



I«PU'-BBSe M DEPAfiT-l 



JKLrWOPOBSTUVHIV 



r-E»P£LPR~>RUH - 



2330 


FQRX-BT01STEP-I 


2360 


S-S*aiki»a-c:c-c 




PRINTSi:OOT02790 






2390 


PRIKTftl ■•'! 








EORX-CTOOSTEP-1 






2630 


NEXT 




FOWX-OTOC 










1670 






Z«-'ABCDEfOKIJK[. 


2690 


y-o: input*b»»« a 



Suite page 15 



PRET 



Ce programme permet de repondre aux questions que 
Ton se pose lors d'un achat a credit. 

- MENU 1 ; apres avoir introduit le montant du pret. le taux 
d'interet applique ; ce programme vous indique le verse- 
ment minimal a acquitter. Puisvousintroduisezle montant 
de votre budget que vous pouvez consacrer au rembour- 
sement ; a ce moment la machine vous livre le nombre de 
versements a effectuer. 

- MENU 2 : si vous introduisez le montant du pret, le taux 
d'interet applique et la duree en mois;le programme vous 
donne le montant de la mensualite a acquitter. 

- MENU 3 : apres avoir introduit le montant d'un pret, le 
montant d'une mensualite et le nombre de mensualite a 
verser.ce programme vous indique le taux d'interet appli- 
que ace pret. 

Lancement du programme par RUN 

Puis repondre par un chiffre de 1 a 3 qui determine le menu 

choisi. 

Ce programme utilise 1'imprimante du TRS ; mais peut 

aussi etre utilise sans celle-cimaisil faudrasupprimer cer- 

taineslignesdu programme qui effectuent des sauts deli- 

gne. 



Daniel LUX 




HE MENU II 

(1) DUREE PRET 

(2) Sonne HENS. 
h REHB0UR8ER 

<Z) TAUX IHTERET 



HEHU 2 

MONTANT PRET I 
36000.FR. 
TAUX IHTERET ! 
17.1WS 
DUREE : 
49. HOIS 

PEMFOUP.S. MENS.i 
1042. 14FR. 



P1EMU 1 

MONTAHT PRET < 

56000.FR. 

TAUX DTHTERET 

17.18H 

LE PAIEHEMT MINI 

HAL SEPAIT DE : 

519. 4FR. 

REHB0UR8. MEMS.: 

1042. 14FP. 

PE II FOURS. SUR I 

48. MO 13 



HENU 3 

mohihmt pre: i 

56000. FR. 

PFttLOUPS. HEMS. I 

1042. 14FR. 

flUPEE I 

48, HOIS 

r«JX INTERET t 



17.18 



I0:PEH -CALCULS 


l c .0:FPIMT "PEMFO 


T" 


SUP UM PRET 


URS. MENS.!' 


JiOlPRINT -MUMTA 




: IMP'JT p: 


NT PR! 1 = " ■■ 


201PRINT "IB tl 


PRINT RI'Fft. 


nirm P: 


EMU OB" 




PRINT P!"FR. 


30:PPINT "<1> D 


16C:V>-<L0G <l-( 




UREE PRET" 


P*(I^100>)'< 


J20U RIHT "PFHtu 


33IPRIHT "(2) S 


12*R>)'<L0G 


'■> ■.. MENS.!' 


OHME HEMS.": 


* 1M 100'12> 


: INPUT Ri 


PRIMT "A REM 


*12>> 


PRINT F!"FP. 


BOTJRSER" 


170iN*Y*12IN"INT 




40:pRIMT "<Z> T 


(N*.5> 


330IF-PINT 'DUREI 


au;: imteret- 


ISOiPRIHT "REHEO 


i -. |H U1 Nl 


43iPRIH7 " "! 


URS. SUR i": 


PRIMT N!"H0t 


PR KIT ' "J 


PRIMT Hi "HOI 


S" 


PRINT " " 


S" 


S40' i 1 


30: IMPUT "VOTRE 


|»IGOTO 30 


5S0H-I 100 


CHOI>: 7 : " 


200IPRINT " ": 


■• ■■: ■ [ >r !. ■ I 




hKIMT "MEHU 


1 ■ ■ I 1 2 ♦ 1 J 


60: IF A=ITHEM 1 




H)>!Q>INT ■ 


00 


210IPRINT 'MOHTR 


0*100>.3) 1" 


63! IF a=2them 2 


111 TKET !"l 





00 


IIIFin Ft 


S80IK-AU ■ (•tOO 


701 IF fr»3THEN 3 


PPlMt Pl'FR. 


- t ■ ■: ■ I .1" 


00 







BOiGOTO 30 


. 20i 1 F INT "TRUX 


JMi If HEN 4 


IgfiiFF'IMT " ": 


liirucL'T : m : 


« 


PRINT "MENU 


[NPV1 [1 


4001 li RTHEN 4 




PRINT II "'.": 




UOl PRINT "HOMTw 


l-l 1« 


4101 1 l*100*XI 


MT PRET l M l 


.:■ ;ni -OUREE 


■ 


Illl UT 1 : 


: ': llinn HI 


420i i i ;i 


PRINT Pl'PR. 


h-iht iii-rwt 


■ 




■" 


4S0M 1*1001 1- 


120IPRIN1 "TAUX 


2401* ■ I'i 1 12) ' 


[iir f.h- ■ 


|i IMtl f- E_ T - = 


1 ■ 1 1. •! ■ 




IIIFIII [1 


Il ■ ■ 


■ i (Oil (■ INT "ThUX 


PRINT II "V 


■ OlR !"' 


IIHEPI ) I'l 


: ■ .:ii. . : i IOOiM 
ilHI iM*100* 


100 

...i:.MNI "Rl MM 


.i INT I'"*. L 


j) 100 


[fi - . MEN ,1 


: ■■:.. -i 


1401 1 f [Nl "LI PR 


[HI Rl 'FR 




Hill III NINIM 






..■ i i „r n 


..,:,'.,.! ■ 




il i nit m: 


OOlPI INT " "i 




FR," 


ihini Ml NU 


■ 



MULTIGRAPHE 



Tracer une ou plusieurs courbes ? les comparer ? Rien de 
plus simple avec ce programme et votre ZX 81. Aquand 
I'hippocampe dessine grace a une courbe parametree ? 




J, 4 



ZX81 



R ASSEMAT 



Mode d'emploi : 

Rentrez ce programme traceur de fonctions. puis preparez votre ma- 
gnetophone pour I'enregistrement (Duree environ 4 Mm). Tapez alors 
RUN 900, ceci le sauvegardera et le lancera. (Des lors, le programme 
s'autolancera des chargement) Suivez les instructions pour tracer une 
ou plusieurs (onctions. 

Rappelez vous que certaines Fonctions devront etre modifiees pour 
etre entrees dans le ZX. (Par exemple, fonctions avec calcul de puis- 
sances, etc..) 

Si vous voulezgarder une trace ecritedevos courbes avec leurlegende 
et/ou le listing des (onctions. 

ATTENTION, la resolution graphique du XZ81 ne permet pas une.extre- 
me precision. et deplus. il ne possede pas d'ON ERRORGOTO. N'essa- 
yez done pas de tracer vos fonctions sur des intervalles ou en des va- 
leurs de non-definition !... Gare aux branches inifinies... 
Explications : 

Ce programme peut sembler long, mais il evite de "Rendre la main" 
pour de simples erreursd'entree... du type un nombrenegatif de fonc- 
tions ou la bornesuperieure sur I'axedesabscissesinferieure a la borne 
inferieure. 



Cependant. j'ai essaye de les structure? au maximum en utilisant un 
grand nombre de sous-programmes executant une tache bien defime. 
et ceci permettra, j'espere une plus grande tacilite pour comprendre 
sonfonctionnemehtetpermettreauxpossesseursd'autreappareilsde 
I'adapter facilement au leur. 

II suffit de modifier le compteur du calcul des donnees (64 pour le ZX81 
car iln'aune resolution graphiquequede 64X44) detransformerla rou- 
tine de trace contmu en unDRAWou PLOT X,Y ; TO X ; Y 3 . etc de trans- 
former les "INKEY S" et d'utiliser si elle existe la fonction FLASH. (Ce 
programme utilise un simulateur de clignotement avec une variable 
du controledutupe FORM=0TO1STEP0 donnant une execution illimi- 
tee) Les fonctions COPY et LLtSTdoivent etre creees si ellesn'existent 
pas. 

Attention. I'absence regrettee d'ONERR GOTO sur le ZX 81 fait que le 
calculateurlors de points oud'intervalledenon definition s'arretera, ou 
dans le cas de branches infinies provoquera une diminution tres forte 
de la lisibilite du trace. De plus, celui-ci n'est pas effectue en repere or- 
thonormee, car cela aurait demande un temps de celui-ci n'est pas ef- 
fectue en repere orthonormee. car cela aurait demande un temps de 
calcul multiplie par trois.lequel est assez long en cas defonctions trigo- 
nometriqueslogarithmesou puissance. Jeconseillevivementdefaire 
calculer en mode FAST sinon le temps d'attente du a la lenteur du BA- 
SIC devtent presque insuportable (Heureux les possesseurs de langa- 
ges stuctures !!} (... et compiles !!!) 

Seulement, ce programme n'est capable de tracer que des fonctions 
du type y=F(x), mais etant multicourbes, il permet de comparer, par 
exemple les fonctions *p et sinx. ceci pouvant etre tres utile a des ele- 
ves de terminates scientifiques, comme moi, ou faisant des etudes ma- 
thematiques. Peut etre viendra un jour, un petit frere plus complat... 



15 CLS 

16 REM , 

17 SLOU 
19 PRINT RT 

NNBES" 

22 PRINT RT 



SORTIE SUR PRINTER 



26 REM 

23 GOSUE 473 

"" ENTREE DES RB3CISSES 
*" "BORNCS SUR 



43 PRINT RT 7,0, "ENTREZ UOTRE 
"iBSCISSE INFERIEURE" 

46 PRINT RT S,3; ">XINFn"; XINF 
4.9 PRINT RT 7,0;" 



56 PRINT AT 



"ENTREZ UQTRE 



oi ir Aour ;Ainr in 

70 NEXT N 

73 FOR N»8 TO 9 

76 PRINT RT N,0; "_ 

79 NEXT N 

62 GOTO 37 

OB PRINT RT 10,3;' 

SB PRINT RT 9,a;" 



.xsup-- ;xsup 



91 PRINT RT 13, a; "COMBIEN DE F 
ONCTION A TRACER?" 

94 INPUT FONCTNO 

97 IF FONCTNO*® RND FONCTNO-IN 
T FONCTNO TMEN GOTC " " 
100 PRINT RT " " 



112 GOTO 91 

115 LET A*-STR* FONCTNO 

HO PRINT RT 13, a;" 

9 1 ls*" R " NT fiT 13 ' 1B - LeN o*;r*;tpi 

12S' IF FONCTNO >1 TMEN PRINT RT 
13, 19; "5 R TftflCCR." 
12* IF FONCTNO* =10 THEN GOSUB 5 

127 IF R 

130 REM I 

133 GOSUB _ 

136 LET RJ=INKEYJ 

139 IF A*-"T" THEN GOTO 94-0 

14.2 IF A»«"D" TMEN RUN 

145 IF A*-"N" THEN GOTO 154 

146 LET DRTR=- 
1S1 GOTO 950 



160 PRINT RT N, 
163 NEXT 



169 IF INKEY* 0"0" RND INKEY*< 
"N" TMEN GOTO 1S9 
172 LET FRST=0 
176 XF INKEY*="0" TMEN LET FAST 



187 CLS 

190 PRINT RT 6,8," "UEUILLEZ PRTI 

"l93 PRINT RT 11 , 6; "OUELOUES INS 
TRNTS" 

196 P 
OURS. . 

199 FOR N-0 TO 20 

202 NEXT N 

20B IF PA3T-1 THEN FR3T 

2B6 LET XPflSa IX3UP-XINF) /83 

211 LET X-XINF 

214 OOSUB 1010 

217 LET YSUPnY 

220 LET YINF-Y 

223 FOR N=0 TO 63 

226 LET X-XINF+N*XPAS 

229 FOR M=l TO FONCTNO 

232 GOSUB 1E3+10#M 

236 LET Y(N + 1,M)-Y 



236 IF YSUP <Y THEN LET YSUPmY 
%fi SFYOriNr TMEN LET Y?NF-Y 



,7; •ENTREE DES DO 



SMSUHUHL'H «■ "« 



- NEXT M 

247 NEXT N 

250 CLS 

253 SLO 

256 REM 

359 — 
260 

261 NEXT 

262 REM r 
26S G05U 
258 REM ; 
271 CLS 
274 REM *TRRCE DES AXES: 
277 REM DES flSSCISSES. . . 

260 IF YINF<=0 RND YSUP>=0 THEN 
PRINT RT 2HYSUP/ (YSUP-YINF) ,0; 



GOSUB 661 
269 REM *AFFICHRGE GRRPHIOUE 
292 LET RGR=43^ (YSUP-YINF) 
295 FOR Hal TO FONCTNO 
29© FOR N=>0 TO 63 
301 LET Y=RGR# IY (N + 1,M) -YINF) 
304 IF N>0 RND CONTINUil THEN G 
OSUB 6B5 
307 PLOT N,Y 
310 LET LSTY*Y 
313 NEXT N 
316 NEXT H 

318 REM tCOPIC SUR PRINTER 

319 IF LPRINT=1 TMEN GOSUB 772 

320 REM *LEGENDE R L ECRRN 

321 DIM LI 1128) 

322 LET L*«"XINF«"+5TR* XINF 

323 LET L*C17 TO ) ■ "XSUP ■=" +3TRS 
XSUP 

324 LET L*C33 TO 3 ■ "XPRS ■" +STR * 
XPR3 

325 LET L*(49 TO >="RPPUYEZ SUR 
BONT- 

325 LET L*<65 TO J ="YINF ■" + STR6 
YINF 

327 LET L*[31 TO ) »"Y3UP -»" tSTRi 
Y5UP 

328 LET L*<97 TO ) ="YPR5»" +STRJ 
(l-'RGR) 

329 LET L*(113 TO J="RPPUYEZ SU 
R WONT" 

330 FOR M=0 TO 1 STEP a 

331 PRINT RT 21,31;CHR* PEEK (P 
EEK 16396 +256 »PEEK 16397+725) 

332 POKE 16442,4 

333 PRINT L»( TO 84) 

334 FOR N=0 TO 30 

335 IF INKEY*="C" THEN GOTO 344 

336 NEXT N 

337 PRINT RT 21,31,CHR* PEEK (p 
EEK 1639 6+25S*PEEK 16397+725) 

33B POKE 16442,4 

339 PRINT L*I65 TO ) 

340 FOR N=0 TO 30 

341 IF INKEY«a"C" THEN GOTO 344 

342 NEXT N 

343 NEXT M 

344 REM iREEXECUTION? 

345 GOSUB 641 

346 IF I NKEY$="Q" TM EN RUN 940 
346 REM f-^* 



TOUUOURS R 



355 PRINT RT 
QTRE SERUICE, 

356 PRINT RT 16,ie;'"l 

a" 

361 GOTO 999 

362 REM 

363 REM 

364 REM ++++++++++++++++♦+++ 

365 REM + 

366 REM + SOUS PROGRRMMES 

357 REM + 

36 f 3 REM + + + * + + + + * + + *j. a. i j. + j. j. j. 

369 REM 

— REH ; 



- 73 , P«INT RT 15,5; '■INSTRUCTIONS 
• (HUIyffiON) " 
376 FOR M=0 TO 1 STEP 
379 PRINT RT 15 , 5; " INSTRUCT ION 



TMEN RETURN 

383 NEXT N 

391 PRINT RT 15 ,5; 



THEN RETURN 

400 NEXT N 

403 NEXT M 

406 REM 

409 REM 

412 CLS 

.,■•13 PRINT RT 

4 16 PRINT RT 2,3; "CE PROGRAMME 

-EUT REPRODUIRE" C 

421 PRINT "GRP.PHIQUEMENT PLUSIE 



■JRS" 

4JS4 PRINT 
JU3U ORNS 



FONCTIONS DU TYPE OB 
..--. HEME INTERURLLC D AB 

433 PRINT TAB 3; "UOUS DEUEZ LF4 

ENTRER COMME" " *-** 

"*pnRTip N D :: L - 1GNC5 DE PROGRRMME 

_ ,1 ?§_?RiNT_"W n LIGNE 101O POUR L 



ERE, 1020 

439 PRINT "PO 
5RNS OUBLIER" 

442 PRINT -'- 
=ONCTION. " 

445 PRINT TAB 2; "EN5UITE 
F IEZ LEUR NOMBRE" 

SUR L R fi NT "" eT DONNEZ Les BORNE3 

451 PRINT "DE5 ABSCISSES..." 

net bK^lS" 1 "' 1 ' " k/ous ° 0TI ^ 

457 PRINT "COURBES I 

LES. " 

19,3; 



2NDE ETC. . . 
APRE3 CHROUE 
SPECI 



LES ECMEL 



>"C". TMEN OOTO 46 
466 RETURN 
469 REM 
472 REM ! 

475 PRIN 
RNCHE? IP 

476 IF _ 
"N" TMEN OOTO 478 

f?.7 S^, 1NK Et , ""°" THEN GOTO 493 
484 PRINT RT 3,2; " 

487 LET LPRINTa-1 
490 RETURN 

493 FOR Na0 TO 5 

494 NEXT N 

495 PRINT RT 3,2; " 
PRINTER dSUI/SON) " 

496 IF INKEY»<>"0" 
"N" THEN GOTO 496 

499 IF INKEY «-"N" 
SO? PRINT RT 3,6;" 



COPY SUR 

AND INKEY* <) 



-_ LET LPRINTcl 
506 RETURN 
Sll PRINT RT 3,0: 

3; " , 

LET LPRIHT=0 



"PRS DE";TAB 2 



517 

520 

S23 

526 PRINT RT IB. Il 

TROP BRAND NOMBRE 1 

529 PRINT RT 16,0; 
RISQUE DE DIMINUER" 

532 PRINT RT 17,0; 
E DU TRRCE. . . " 

335 PRINT RT 19,4; 



53B IF INKEY* <>'• 
"N" THEN GOTO B38 

541 LET A*-INKEY 

544 TOR H-1S TO 

547 PRINT RT N,0 

S50 NEXT 

553 RETU~ 

556 REM 

559 REM 

562 PRIN 



DE FONCTION 
LA LI3IBILXT 
PERSISTEZ-UO 
RND INKEY* <> 



POS D 

CORRE 

CORRE 

CORRE 



OR INKEY*="N" 



CORRECTIOI ._ 

5BB PRINT RT 19 , 1; "H- 
CTION TDTRLE" 

566 PRINT RT 20, 1; "B- 
CT ION DES FONCTIONS" 

571 PRINT AT 21,1; "H- 
"1TION DES DONNEES" 

574 FOR M=0 TO 1 STEP 

B77 PRINT RT 16, 10; "CORRECTIONS 

5B0 FOR N«v0 TO 6 

583 IF INKEY*-'-N" OR INKEY*n"T" 
OR INKEY *-"F" OR INKEY *-"D" THE 
N RETURN 
566 NEXT N 
3B9 PRINT AT 



S92 FOR Nil TO 6 

595 IF INKEY *-"N OR INKEY »-'T* 

OR INKEYH'F" OR INKEY** "D" THE 

■1 RETURN 



RT 10,4, DES FONCTION 
RND XNKEYBf - 

ETURN 



















L t 








7 I9UI/IBONI " 










IF INKEY* 




aiNT ... 
nee des" 

643 PRINT RT 18,0, 
CONTINU7 tBui^aONl 
64S IF INKEY t < >-0" 
■""TMEN GOTO 646 



[FONCTIONS Ef.' 
RND INKEY* < > 



TMEN LET CONT 



L5TY 



655 RETU 

558 REM 

661 REM I 

664 LET Y=3Jt 

667 FOR N»0 T 
670 PRINT AT 
673 NEXT N 
676 RETURN 
679 REM ++* 
682 REM 

665 REM 
RDRPTEE 

668 LET 
691 LET u» 
69 4 L ET U =' 
697 LET Dl; _ 
700 LET D1Y«5CN U 
703 LET D2X-1 
706 LET D2Y=>0 
709 LET U«l 

712 LET U=RBS U 

715 IF U>U THEN GOTO 730 

718 LET D2Xi0 

721 LET D2Y = SGN CY-LSTY) 

724 LET U"RB5 U 

727 LET U"l 

733 LET S*INT !U^2) 

733 FOR I=i0 TO U 

736 PLOT R.LSTY 
739 LET S=S+U 

742 .TF S<U THEN GOTO 757 

745 LET oaS-U 

748 LET R-R+D1X 

751 LET L5TY.LSTY+D1Y 

754- GOTO 763 

737 LET O-AiPiOv 
760 LET 
763 NEXT - 
766 RETURN 
7 69 REM +++♦♦++++ 

772 rem mUM 

774 POKE 16442, 24 
LPS INT TAB 4; 



NUEL P 12 1 



L3TYIL3TY+D2Y 



781 LPRINT " 

764 c6Ty^^^ 

787 LPR INT "■■—■■■—■■■■■! i ——■■■■— 

790 LPRINT 

793 LPRINT TAB 4;"LEOENDE" 

796 LPRINT TAB 4; "»•»•>■. fr fr" 

799 LPRINT 

802 LPRINT "REPRESENTATION GRRP 
HIOUE OE; " 

605 LPRINT TRB 2; " >X - " ; XINF 

BOB LPRINT TRB 3; "R X.'',X3UP 

811 LPRINT " [LA 6I5TRNCE >( EST 

'■ : 2»XPAS: ") " 

614 LPRINT TRB 2 ; " >Y«" ; YINF 

617 LPRINT TRB 3; "A Y«'';YSUP 

820 LPRINT TRB 13;"-" 

623 LPRINT "CLP DISTANCE - EST 
" ; 2/RGR; ") " 

826 LPRINT 

629 LPRINT " __ 



831 LPRINT 

833 LPRINT 

835 RETURN 

638 RET 



047 PRINT RT 10 , 22; " C»U I /BON 
650 FOR H*0 TO 1 STEP F 
853 PRINT RT 7,7; 



UOULEZ-UOU3 T 
"O RUTRE3 FON 



^RCER 

856 PRINT AT 10,5 
-TIONST" 

8S9 FOR N-0 TO 4 

662 IF INKEY*-"0" 

THEN RETURN 

865 NEXT N 
_B65 PRINT RT 7,7; 

71 Pg INT RT 10,2 

■0 TO * 

B77 IF INKEY*="0" 

THEN RETURN 

680 NEXT N 

883 NEXT M 

885 REM +++++++++ 

B9Q REM 

895 REM 

90O REM L 
910 3RUE 
915 REM r 

918 CLS 

919 SLOU 

920 PRINT AT 4,7, "TRRCEUR 
rOUE";RT 5,7, "•*## 

925 PRINT AT 8,9; 
; RT 10,7; "D EOUATI 

930 GOSUB 370 

935 IF INKEY»-"0" THEN GOSUB 
9 

940 REH | 

945 LET 

950 REM ; 

955 CLS 

960 PRINT AT j , j. , 
NRNT UOS FONCTIONS" 

965 IF DRTA.. T HEN PRINT AT 
, "PUIS TAPEZ ■~"^"' 

970 IF DRTR-T 
: "PUIS TAP — 

980 REM r 

999 STOP 
100(1 REM 



"ENTREZ MAINTE 



FONCTIONS 




Sufte de la page 14 



2720 Y-Y. 

27Z0 Four 

2740 IFAI 

2730 PRIN 

27*0 t(EXiy:00T027' 

7770 AIYJ-ABSI9-A 

2760 C*«HID«IZ*,A 

3790 PRINT* FAIT: 

2a oo 

2010 
2820 
2830 

2940 



2t«0 PRINT-4 

■/If/ i.i '.rj'.ijM]r,< 



CP^ 



I-THENBUN2290 



t-CJT 



2720 ■***+*—*+***+ 

:■■-'.:■-, ' H I KIIill lll 

29*0 LISTHI120 

2V70 ' tl l llt t llHH 

29bo -eruDE de ' (X) 

;■■/;■<.< ' llllHlllim 

30j0 pbint-2-manuelle 

3020 odsubioooo 

3030 ONUAl-(A»»00IO30S0, 3 

30*0 "ETUDE AUTOHAT. 

3070 ' M IIIII IHH II 

loao input-x am <tip«n-i; 

3090 Inp_ut-x d'afrivl*"*] 

31O0 IfVPUTIHTF.fiVALE'PIK 



(X-KDTf 



. (A«)OOT02V20,2?7O,3: 



3120 PPII 



1130 OOBUBIOOOO 



3220 PRINT-H-IXf 
3230 A«-INKEY«: !Fi 

3240 ipa«-"a - imen: 
3730 print" fait" 

3260 00103130 
3270 ■##*•*•*•<••. 



I DE 



3300 LINE (0, 13 
3310 LtNE!3»,0 

locateo,o:prini 



,3V0 IFA»»*«l , 0RA«-*0*T 
3320 IFAt-'f rMENENIlEL8EnuN 

\ .i. :■,.., ,. IPA«-"TXENK 



l.Mi.l '.. "I lui'N 



| fa«.-o-ORA»»'0*1»0N»UN22»O 



LE LOGICIEL 

DE LA SEMAINE 

Radar rat race 

...sur COMMODORE 64 




Vous voter devenu souris ! A vous 
de devorer les morceaux de fro- 
mage, repartis aleatoirement 
dans !a ville. Mais ne croyez pasta 
partie gagnerd'avance : des rats 
vous suivent a la trace, defendant 
leur garde-manger ; sans parler 
des chats, statues immobiles at- 
tendant que vous vousjetiezdans 
leurs gueules. 

Malgre tout, votre tache n'est pas 
impossible : votre vision partielle 
j de la ville est completee par une 

image "radar" de 1'ensemble de 
celle-ci. Les carres blancs figu- 
rent le Iromage. iecarre bleu c'est 
vous et les croix rouge represen- 
ted les chasseurs a vos trousses. 
Vous disposer d'une arme enco- 
re : les rats utilisent leur odorat 
pour vous trouver et si run deux 
vous serre de trop pres, semez la 
confusion dans son nez et son es- 
prit en appuyant sur le bouton de 
votre manette dejeu. il tournera 
enrond.completementdesorien- 
te ! Mais moderez-vous, chaque 
utilisation de cette defense, dimi- 
nue le temps qui vous est alloue 
pour manger tout le fromage. 
Vous commencez a voir ia strate- 
gic a adopter ? Avant de vous lan- 
cer, quelques conseils sont enco- 
re necessaires : L'un des dix mor- 
ceaux de fromage vous donne un 
double bonus, et chaque bou- 



chee suivante vaudra deux fois sa 
valeur nominale (200 au lieu de 
100 au premier tableau, 400 au 
lieu de 200 au deuxieme tableau 
etc.) 

Le mieux serait de le manger en 
premier : il se distingue des autres 
par un petit "2x" inscrit dans un 
trou du fromage. 
Tentez d'obliger les rats a rentrer 
dans les chats, les premiers dis- 
paraissent et les seconds per- 
dront votre trace pendant un mo- 
ment. 

Des les dix morceaux de fromage 
avales, votre bonus est calcule a 
partir du temps qu'il vous restaiL 
Au tableau suivant, votre mefian- 
ce devra etre encore plusgrande : 
chats et rats sont plus nombreux ! 
Une derniere precision : vos trois 
precieuses vies ont tendance a 
etre insuffisantes ? Depechez- 
vousd'atteindre 2000 points : une 
quatrieme vie vous sera offerte ! 
Et maintenant, bon appetit ! N'ou- 
bliez pas que vous representez 
une proie de choix, petite souris 
bleue. pour ces rats rouges et ces 
chats noirs. Aussinedilapidez pas 
votre temps en recherches vai- 
nes, et courses steriles. Allez-y 
franchement : vous ne craignez 
pas les indigestions ! 

M. THEVENET 



PETITES ANNONCES 
GRATUITES 




VENDS OR1C 1. 48Ko (11/83) sous 
garantie + cordon PERITEL + li- 
vres + K7 + programmes le tout 
vendu 2200 R I THIBAULT 6. 
square des Genets 17000 LA RO- 
CHELLE. Tel. : (46) 34.24.04. 

VENDS LASER 200 achete neuf 
11/83 (garantie encore jusqu'a fin 
octobre 84) + extension 16K + K7 
+ livres 4- revues le tout 2000 F a 
debattre. Philippe BRUNNER. 
Tel. : 986.04.25. (apres 19 H). 

VENDS Tl 99/4A + magneto + 
manettes de jeu + basic etendu + 
PARSEC + Programmes divers + 
divers K7. Monsieur PEERBOLI- 
TE. Tel. : (4) 443.70.21. Le tout 
3000 F 

VENDS CASIO PB 100 + exten- 
sion OR 1 + interface K7 + 2 livres 
programmes le tout 400 E Contre 
remboursement. Marc LIEBISCH 
60. rue Th. Eberhardt L - 1452 - 
LUXEMBOURG/BELAIR. 

VENDS Ti 99/4A (11/83) + cordon 
magneto + logiciels + livres pro- 
grammes + manettes dejeu. Prix 
2000 F. Monsieur MONIEZ Tel. : 
028.63.72. 

VENDS HP 41 CV sous garantie 
(achat 10/83} etat neuf + manuels 
complets. Prix a debattre. Mon- 
sieur Nicolas JULIEN 28, avenue 
des Cottages 78480 VERNEUIL/ 
SEINE. Tel. : 971.67.86. 



CHERCHE Programmes TO 7 N° 
2. 6, 8. 12 HEBDOGICIEL et 1 a 11 
de MICRO 7, solution l.L Llntrus 
apres avoir pris 4 objets. Monsieur 
BALNCAHRS 4 A. Jef le Penven 
29290 PLOUZANE Tel. : (98) 
45.51.60. 

Debutant ZX 81 CHERCHE don- 
nateur de livre : Conduite du ZX 
81, Langage machine trues et as- 
tuces du ZX 81, ZX a la conquete 
des jeux. Monsieur GRIMAULT 
rue de I'Abreuvoir, residence du 
marche batiment A 94150 RUN- 
GIS. 



VENDSZX81 + imprimante + 64K 
RAM le tout 1600 F ou separes. 
Jean Louis-LECOMTE 37. rue St 
Jean, 69005 LYON. Tel. : (7) 
838.04.80. 

VENDS BASIC ETENDU POUR Tl 
99/4A 1000 E (achete le meme 
prix) a debattre, neuf. Philippe 
CARDOT : Route d'ISSOIRE, 
63960 VEYRE-MONTON. Tel. 16 
(73) 69.65.63. 

ACHETE pourTI99/A Boitierd'ex- 
tension + extension 32K. BER- 
THAUD Julien Tel. : (6) 928.72.50. 

ACHETE pour Tl 99/4A basic 
etendu et tunnels of doom. Marc 
CHAMBON 65, rue Franck Del- 
mas 17000 LA ROCHELLE. Tel. : 
(46) 43.55.37. 



ACHETE pour Tl 99/4A module 
etendu. Jesus NAVARRO 27, rue 
Monplaisir 31400 TOULOUSE 
Tel. : (61) 53.02.64 (heure repas) 

VENDS Tl 99/4A + EXTEND + 
echecs+ PARSEC+ Tl INVADERS 
+ joystick + cable K7 + cours Ba- 
sic-*- Schema Tl + lOOjeux sur K7. 
Vendu 17.500 Francs beiges. 
Monsieur BROGNIET 28. rueNeu- 
ve B 5998 BEAUCHAIN BELGt- 
QUE. 

VENDS PC 1251 + CE 125 + A la 
decouverte du PC 1251 + varia- 
tions pour PC 1211 + manuel d'uti- 
(isation + Boite a outils pour PC 
1251 + papier thermique: 2 GROS 
ROULEAUX + divers renseigne- 
ments langage machine, table de 
codes + divers n pl ordinateur de 
poche + ordinaleurindividuel (va- 
leur 3465) vendu 2200 F a debat- 
tre David AJUSTAT 8. rue Condor- 
cet 75009 PARIS. 

VENDS pour Tl 99/4A Module Ba- 
sic Etendu. Prix neuf 1 .300 F Ven- 
du 1000 F Gilles MAGAMT1. Tel. : 
(3)041.06.31. 

VENDS Tl 99/4A + module BLAS- 
TO + 6 livres programmation -f K7 
Prix 1200FSynthetiseurde parole 
+ terminal Emulator II + speech 
synthetiseur. Prix 1000 F Console 
MATTEL de jeux + 6 K7 prix 
1 400 F Louis NOTHAIS 1 1 . rue de 
Title 6000 BEAUVAIS. 

VENDS boite 10 diskettes 3M 
Neuve, emballee sous plastique 
250 F Renaud BRETON. Tel. : 
626.11.22. 

VENDS pour Tl 99/4A Module 
PARSEC + module MUNCH MAN 
achete 510 F Vendu 400 F les 2 + 
Programmes pour Tl 99/4A. Eric 
BARBET 5, rue des Vergers 671 20 
DORLlSHEIM.Tel. : (85) 38.58.56. 
(apres 18 H). 

VENDS ZX 81 (06/83) + 32 Ko + 
clavier + 8 K7 jeux + manuels + 
manettes jeu. Valeurs 2600 F ven- 
du 1 300 F Bruno KASPRZAK. Tel. : 
913.82.18(apres18H30). 

VENDS Tl 99/4A + k7 TEXAS + 
PERITEL + module SECAM + re- 
vue T 1 .2.3 + Cordon lecteur K7 + 
3 K7 + joystick + Basic Extented. 
Monsieur LEGRAND. 991.84.46 
(a partir de 19 H). 
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CONFIGURATION 
THOMSON: 

1 TO 7 THOMSON 

t Lecteur de cassettes 

1 Module memo 7 basic 

I Cassette bask 

1 Cassette 

D L'ememble : 
3.600,00 F TTC 



POUR Tl 99 4/A 
LOGICIELS DISPONIBLES SUR STOCK 



EDUCATION A PARTIR DE 5 ANS 



EDUCATION A PARTIR DE 10 ANS 



■ ■ ■ 
LOISIRS 



Cr Texas Instruments 




CONFIGURATION N° 1 
POURDEMARRER: 

I Tl 99/4 TEXAS 16 K 

1 Magnetocassetttes TEXAS avec compteur 

1 Palre manettes jeux 

1 Cassette "le bask par sol-meme" 

1 Les techniques Programmation dejeux n° 1 e 

1 Introduction au Tl 99/4 n° 1 et n° 2 

I Module jeux Munchman 

T Module Jeux Parsec 

t Module Hopper 

D L'ememble: 
3.100,00 F TTC 



CONFIGURATION N° 2 
ORGANISATION: 

1 Tl 99/4 TEXAS 

1 Magnet oca ssettes TEXAS avec compteur 

1 Module gestlon de fichler 

J Module gestlon de rapports 

I Module statlstiques 

1 Module Tl cak 

1 Gestlon prlvee 

I Consell Financier 

OL'ensemble: 
3.900,00 F TTC 



CONFIGURATION N° 3 
JEUX: 

1 Palre manertesjeux 

1 Basic par sol-meme 

1 Module Adventure avec la cassette Pirate 

5 Cassettes assortles pour jouer avec le module 

I Module jeu Munchman 

1 Module Orngon attak 

1 Module Mash 

T Module Star Trek 

D L'eosemble : 

2.200,00 F TTC 




• Produlis dliponlblcs dans la llmftc de nos stocks en magasln. 

Participation aux frali de port et d'expedltlon par transporter + 180 F (Conttgurnllonst.l Logictels) + 30F 
I LA REGLE A CALCUL - 65/67, bd St-Germafn 7500S Paris Tel. 325.68.88 ■ Telex 220064F ETRAV/1303 l?AC I 



